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VORWORT 


Durch das Erscheinen von TURBO-PASCAL für WINDOWS ist es erstmals möglich, 
bei geringen Kosten und unter vertretbarem Programmieraufwand WINDOWS-Applika- 
tionen zu schreiben. Naturgemäß umfaßt TURBO-PASCAL für WINDOWS nur die 
grundlegenden Grafik-Routinen; für anspruchsvolle Grafikanwendungen ist noch einiges 
an zusätzlicher Arbeit erforderlich. 


Hier bietet das vorliegende Buch eine Hilfestellung. Es enthält eine Sammlung von 100 
Rezepten, die als nützliche Bestandteile von Grafikprogrammen gedacht sind. Selbst- 
verständlich ist es möglich, die Rezepte den eigenen Bedürfnissen anzupassen. Um die 
Rezepte sinnvoll einsetzen zu können, muß der Leser wissen, wie ein TURBO- 
PASCAL-Programm unter WINDOWS aufzubauen ist und wie Grafiken erzeugt werden. 
Nach Durcharbeiten der Dokumentation zu TURBO-PASCAL für WINDOWS, insbe- 
sondere des Windows-Programmierhandbuchs, dürfte das kein Problem mehr darstellen, 
so daß auch der Anfänger nach kurzer Einarbeitung die Rezeptsammlung nützen kann. 


Ein einzelnes Rezept besteht meist aus dem Programmtext mit der zugehörigen Funk- 
tionsbeschreibung, einem Anwendungsbeispiel und zusätzlichen Hinweisen. Die Be- 
standteile eines Rezepts sind durch folgende Symbole gekennzeichnet: 


Programmtext und Funktionsbeschreibung ("Wie wird gekocht?") 
& Der Programmtext ist durch eine einfache Umrahmung hervorgehoben. 
Oo Anwendungsbeispiel ("Wie wird serviert?") 


Zusätzliche Hinweise ("Achtung!") 


Besonders wichtige Angaben sind doppelt umrahmt. 


Abwandlungsvorschlag ("Wie wird gewürzt?") 


Die Rezepte sind nach Sachgruppen zusammengefaßt; der Anfangsbuchstabe der jewei- 
ligen Sachgruppe dient zugleich der Numerierung. 


Juli 1992 
Norbert Hoffmann 
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A ALLGEMEINES 


2 A.1 Gleitkommafehler 


naten mit Hilfe von REAL-Zahlen, welche vor dem Zeichnen in 

INTEGER-Werte umzurechnen sind. Die Standardfunktion Round ist hier- 

für nur bedingt brauchbar, da bei großen REAL-Zahlen ein Gleitkomma- 
fehler (Laufzeitfehler 207) auftritt. Die Funktion IntRound vermeidet dieses Problem: 


f Viele Rezepte berechnen aus Genauigkeitsgründen die Bildschirmkoordi- 


CONST 
MaxInt = 32767; 
MinInt = -32768; 


FUNCTION IntRound(x: REAL): INTEGER; 
BEGIN 
IF x>Maxint-1 THEN 
IntRound := Maxint-1 
ELSE IF x<Minint+1 THEN 


IntRound := Minint 
ELSE 
IntRound := System.Round (x); 
END; 


von denen die Rezepte ausgiebigen Gebrauch machen. Während die trigo- 
nometrischen Funktionen sinx und cosx unproblematisch sind, führen 
unzulässige Argumente beim Logarithmus Inx und bei der Exponential- 
funktion exp x zu einem Laufzeitfehler. Daher empfiehlt sich die Verwendung der bei- 
den folgenden Funktionen: 
FUNCTION FLn(X: REAL): REAL; 
BEGIN 


IF X=0 THEN 
:= -1E30 


f TURBO-PASCAL stellt einige transzendente Funktionen zur Verfügung, 


= System.Ln(Abs(X)); 


FUNCTION FExp(X: REAL): REAL; 
BEGIN 
IF X>Ln(1E30) THEN 
FExp := 1E30 
ELSE IF X<Ln(1E-30) THEN 
FExp := 0 


ELSE FExp := System.Exp(X); 


® REAL; 


FExp (X); 
1/pi 
:= (p-m)/(ptm); 


A.2 Geraden zeichnen 3 


Das Standardverfahren für das Zeichnen einer Geraden ist die Befehls- 
kombination MoveTo/LineTo. Man benötigt also jedes Mal zwei Befehle. 
Das folgende Rezept zeichnet direkt eine Gerade zwischen den Punkten 
(X1,YI) und (X2,Y2): 


PROCEDURE MoveLine 
(Kontext: HDC; 
X1,Y1l : INTEGER; 
X2,Y2 : INTEGER); 
BEGIN 
MoveTo (Kontext ,X1,Y1); 


LineTo (Kontext,X2,Y2); 


LineTo Zeichnet eine Gerade von der aktuellen Position zur| WinProcs 
angegebenen Position; verändert die aktuelle Position 

MoveLine |Zeichnet eine Gerade zwischen den angegebenen Posi-|Rezept A.2 
tionen; verändert die aktuelle Position 

LineWinkel |Zeichnet eine Gerade mit vorgegebener Länge und vor-|Rezept G.1 
gegebenem Winkel; verändert die aktuelle Position 


PolyLine Zeichnet einen offenen Linienzug WinProcs 
Polygon Zeichnet einen geschlossenen Linienzug und füllt ihn mit | WinProcs 
dem aktuellen Pinsel 


Von der jeweiligen Aufgabenstellung hängt es ab, welche dieser Methoden 


man einsetzt. Folgende Richtlinien können eine Entscheidungshilfe geben: 


® Einzelne Linie bei bekannten Endpunkten: Rezept MoveLine 

Einzelne Linie bei bekanntem Winkel: Rezept LineWinkel 

® Linienzug (offen oder geschlossen): Entweder Move7o und mehrmals LineTo 
(einfach) oder PolyLine (umständlich, aber schnell) 

© _Ausgefüllter geschlossener Linienzug: Prozedur Polygon 


KXı,Yı) 


4 A.3 Punkt verschieben 


Bei schrägem Zeichnen |CONST PiZehntelgrad = Pi/1800; 


müssen häufig Punkte 

; R PROCEDURE VerschiebePunktReal 
um einen bestimmten |“ Rx,Ry: REAL; {Startpunkt} 
Betrag und einen be- L,W : INTEGER; 


stimmten Winkel verschoben werden. ER ERLETERERL)T. 7 TENSPUNERT 


Eine pixelweise Verschiebung ist oft| Sx := Rx + L*cos(PiZehntelgrad*W); 
viel zu ungenau, da sich die Rundungs- En a a 
fehler aufsummieren. Um das zu ver- 
hindern, kann man die Koordinaten als REAL-Zahlen darstellen und mit diesen rechnen. 
Das obige Programm verschiebt einen Punkt um die Strecke Z und um den Winkel W. 


Zum Zeichnen ist natürlich jeweils eine Rundung zu INTEGER-Zahlen erforderlich. 


Der Winkel W ist in Zehntelgrad von der Waagrechten aus im Gegenuhrzeigersinn anzu- 
geben. Als Länge L ist auch ein negativer Wert zulässig; dann erfolgt die Verschiebung 
in der Gegenrichtung. 
Für einzelne Ver- |PROCEDURE VerschiebePunktInteger 

; : REAL; 
schiebungen L INTEGER; 
kann man auf INTEGERT 

: INTEGER); 

REAL-Zahlen ) 
verzichten und das nebenste- 


hende, einfacher anzuwenden- | VerschiebePunktReal (Rx,Ry,L,W,X,Y); 
de Rezept einsetzen. _ = IntRound(X); Sy := IntRound(Y); 
; 


Die Besen auf VAR 


— DC : HDC; 
Ol dem Titelbild Hi ; BYTE; 
dieses Kapi- R1,S1,R2,S2: REAL; 


BEGIN 
tels wurden ee 


mit VerschiebePunktInteger R1 := 200; S1 := 800; R2 := 300; S2 := Si; 
LineWinkel(DC, 


(oberer Besen) bzw. IntRound(R1),IntRound(S1),400,500); 
VerschiebePunktReal - LineWinkel(DC, 

3 (unte IntRound (R2) ‚IntRound(S2),280,500); 
rer Besen) gezeichnet. Man FOR i:=1 TO 41 DO BEGIN 


MoveLine(DC,IntRound(R1),IntRound(S1), 


sieht, wie sich im ersten IntRound(R2) ‚IntRound($2)); 


Fall die Rundungsfehler VerschiebePunktReal(R1,5S1,10,500,R1,5S1); 
aufs ieren. Die Befehle a (R2,S2,7,500,R2,S2); 
an i ; {FOR} 
für die Haare des zweiten ... 
END; 


Besens finden Sie rechts. 


Die Konstante PiZehntelgrad dient zur Umrechnung von Zehntelgraden ins 
Bogenmaß, das die trigonometrischen Funktionen benötigen. 


A.4 Rollbalken 5 


Eine Grafik kann wesentlich größer als der Bildschirm sein. Dann ist 
immer nur ein Ausschnitt zu sehen. Wenn man Rollbalken einführt, kann 
man den anzuzeigenden Ausschnitt auswählen. Das folgende Rezept hilft 
hier weiter: 


PROCEDURE Rollbalken einfuegen 
(Fenster : PWindow; 
X_Einheit,Y_Einheit: INTEGER; 
X_Bereich,Y_Bereich: INTEGER); 
BEGIN 


Fenster” .Attr.Style := 
Fenster” .Attr.Style OR ws_VScroll OR ws_HScroll; 
Fenster”.Scroller := New(PScroller,Init 
(Fenster,X Einheit,Y_Einheit,X_Bereich,Y_Bereich)); 
END; 


Damit nach dem Rollen der neue Ausschnitt richtig angezeigt wird, ist das Bild mit der 
Paint-Methode zu zeichnen. Hinweise stehen bei Rezept A.6 (Zeichnen in ein Fenster). 


Das Rezept kann einen waagrechten und einen senkrechten Rollbalken 
zugleich einfügen. Bei X Einheit>0 wird ein waagrechter, bei 
Y_Einheit > 0 ein senkrechter Rollbalken erzeugt. 


Ein Rollbalken CONSTRUCTOR TFenster.Init(...); 


. “  BEGIN 
Ö muß mit der Init- 2 
Methode des be- Rollbalken_einfuegen(@Self,50,40,3,2); 


treffenden Fensters END; 
eingeführt werden. Ist TFenster 
Ihr Anwendungsfenster, so lautet der Aufruf wie oben. Ein waagrechter Rollschritt ver- 
schiebt den angezeigten Ausschnitt um 50 (X Einheit) Pixel; 3 (X_Bereich) Schritte sind 
möglich. Die Grafik ist demnach (Breite des Fensters) + X_Einheit x X Bereich Pixel 
breit. Analoges gilt für die senkrechte Richtung. 


Das nebenstehende Bild zeigt die Verhältnisse: Das linke, fett gezeichnete Rechteck 
markiert den Ausschnitt 
aus der Grafik, der zu 
Beginn im Client- 
Bereich des Fensters 
liegt. Nach zwei Roll- 
schritten in waagrechter 
und einem in senk- 
rechter Richtung wird 
der Inhalt des rechten, 

fett gezeichneten Recht- — nr N 
ecks angezeigt. = 1 2 3=X_Bereich 


6 A.5 Bildschirmbereich auswählen 


Rezept unterstützt die Auswahl eines rechteckigen Bereichs, der durch 

eine Variable vom Typ TRect beschrieben wird. Es besteht aus zwei 

Prozeduren Die erste Prozedur setzt die linke obere Ecke des Bereichs 
fest; die zweite gestattet die Änderung der rechten unteren Ecke. Beide sind zur 
Reaktion auf Mausereignisse vorgesehen. Der ausgewählte Bereich ist auf dem 
Bildschirm durch eine punktierte Linie abgegrenzt. 


f Einen Bildschirmbereich wählt man meist mit der Maus aus. Das folgende 


PROCEDURE BildschirmbereichStart 
( Kontext: HDC; 
VAR Bereich: TRect; 
Msg : TMessage); 


BEGIN 
DrawFocusRect (Kontext ,Bereich); {Alte Bereichsgrenzen löschen} 
SetRect (Bereich, Msg.LParamLo,Msg.LParamHi,Msg.LParamLo, 
Msg.LParamHi); {Startpunkt definieren} 
DrawFocusRect (Kontext ,Bereich); {Bereichsgrenzen zeichnen} 
END; 


PROCEDURE BildschirmbereichEnde 
( Kontext: HDC; 
VAR Bereich: TRect; 
Msg : TMessage); 
BEGIN 
DrawFocusRect (Kontext ,Bereich); {Alte Bereichsgrenzen löschen} 
Bereich.right := Msg.LParamLo; 
Bereich.bottom := Msg.LParamHi; {Neue Bereichsgr. rechts unten} 
DrawFocusRect (Kontext ,Bereich); {Neue Bereichsgrenzen zeichnen} 
END; 


O— Die Anwendung dieses Rezepts erfordert einige Sorgfalt. Im folgenden 
ON Beispiel soll mit Hilfe der Maus ein rechteckiger Bereich auf dem 
Bildschirm definiert und durch eine punktierte Linie markiert werden. 
Dazu sind folgende Schritte notwendig: 
1) Der Startpunkt dieses Bereichs (links oben) wird durch Anfahren mit dem 
Mauszeiger und Drücken der linken Maustaste festgelegt. 
2) Der Endpunkt ist zunächst gleich dem Startpunkt und wird durch Ziehen mit der 
Maus verschoben; der jeweils aktuelle Bereich wird angezeigt. 
3) Beim Loslassen der linken Maustaste bleibt die Anzeige des nunmehr festgelegten 
Bereichs bestehen. 


TFenster sei Ihr Anwendungsfenster. Eine Anwendung, die mit der linken Maustaste 
arbeitet, benötigt die Methoden Init, WMLButtionDown, WMMouseMove und 
WMLButtonÜp. Wie diese aussehen müssen, finden Sie im Windows- 
Programmierhandbuch in Kap. 3 (Füllen eines Fensters). 


Zusätzlich benötigen Sie eine Variable Bereich, um den ausgewählten Bildschirmbereich 
zu speichern. Diese Variable wird durch die Mausbewegungen definiert und 
anschließend durch das Programm ausgewertet, so daß mehrere Methoden darauf 


zugreifen müssen. Zweckmäßigerweise wird sie daher als Feld in die Definition Ihres 
Fensters aufgenommen: 
TFenster = OBJECT (TWindow) 
Bereich: TRect; 


... 


END; 


Die Init-Methode muß diese Variable löschen: 


CONSTRUCTOR TFenster.Init; 
BEGIN 


SetRectEmpty (Bereich); 
END; 
Durch Drücken der linken Maustaste wird der Startpunkt des Bereichs (links oben) auf 


die Mausposition gesetzt (der Endpunkt fällt dabei zunächst mit dem Startpunkt 
zusammen): 


PROCEDURE TFenster.WMLButtonDown (VAR Msg: TMessage); e- 
BEGIN 


BildschirmbereichStart (DragDC ‚Bereich ,‚Msg); 


END; 
Durch Ziehen der Maus wird der Endpunkt des Bereichs (rechts unten) geändert: 


PROCEDURE TFenster.WMMouseMove (VAR Msg: TMessage); 
BEGIN 


BildschirmbereichEnde (DragDC ‚Bereich ,Msg); 
END; 


Beim Loslassen der Maus sollen die Bereichsgrenzen auf dem 
Bildschirm bestehen bleiben; daher brauchen Sie die Methode 
WMLButtonUP gegenüber den Angaben im Windows- 
Programmierhandbuch nicht zu ändern. 


Die Koordinaten des ausgewählten Bereichs stehen jetzt in 
Bereich und können vom Programm weiter verarbeitet 
werden. Wie die Markierung eines Bildschirmbereichs 
aussieht, können Sie der nebenstehenden Darstellung 
entnehmen. 


8 A.6 Zeichnen in ein Fenster 


angezeigt werden sollen, müssen grundsätzlich mit der Paint-Methode 

gezeichnet werden. Am einfachsten ist es, die Zeichenbefehle direkt in der 

Paint-Methode einzusetzen. Bei einer Änderung des Bildausschnitts 
werden dann die Teile des Bildes, die zuvor nicht sichtbar waren, komplett neu 
gezeichnet. Bei zeitaufwendigen Zeichenvorgängen (z.B. Apfelmännchen) kann das sehr 
lange dauern. 


f Bilder, die auch nach dem Rollen oder nach dem Ändern der Fenstergröße 


Als Alternative bietet sich die Möglichkeit an, das gesamte Bild auf einmal in einen 
Speicherkontext zu zeichnen und von der Paint-Methode bei Bedarf auf den Bildschirm 
zu übertragen. Der Bildaufbau ist dabei allerdings nicht sichtbar; erst dann, wenn das 
Bild ganz fertig ist, erscheint es auf dem Schirm. Ausschnitssänderungen gehen jedoch 
sehr schnell; außerdem kann das gesamte Bild in Bitmaps übertragen und z.B. in die 
Zwischenablage oder zum Drucker geschickt werden. 


Dieser Speicherkontext muß global verfügbar sein, da er sowohl von der Paint-Methode 
als auch von den eigentlichen Zeichenprogrammen benötigt wird. Zweckmäßigerweise 
wird er mit der SetupWindow-Methode eingerichtet (die Init-Methode ist nicht geeignet, 
da ihr der Bildschirmkontext noch nicht bekannt ist): 


PROCEDURE TFenster.SetupWindow; 
VAR 
DC: HDC; 
BEGIN 
Twindow.SetupWindow; 
DC := GetDC (HWindow); 
Schirmspeicher := CreateCompatibleDC (DC); 
SchirmBitmap := CreateCompatibleBitmap(DC, 
GetSystemMetrics(sm_CXScreen)+ 
Scroller” .XUnit*Scroller” .XRange, 
GetSystemMetrics (sm_CYScreen)+ 
Scroller“ .YUnit*Scroller”.YRange); 
SelectObject (Schirmspeicher, SchirmBitmap); 
BitBlt (Schirmspeicher, 0,0, 
GetSystemMetrics (sm_CXScreen)+ 
Scroller”.XUnit*Scroller”.XRange, 
GetSystemMetrics (sm_CYScreen)+ 
Scroller”.YUnit*Scroller“”.YRange, 
DC,0,0,Whiteness); 
ReleaseDC (HWindow,DC); 
END; 


Hier wird ein Speicherkontext erzeugt, der groß genug ist, um das gesamte Bild 
aufzunehmen (zu den Abmessungen s. Rezept A.4 Rollbalken), und weiß gefärbt. 
TFenster ist das Anwendungsfenster. 


EEE EEEEREERTER) 


Bei Programmende muß der Speicherkontext wieder freigegeben werden: 


DESTRUCTOR TFenster.Done; 
BEGIN 
DeleteDC (Schirmspeicher); 


DeleteObject (SchirmBitmap); 
Twindow.Done; 
END; 


Die Paint-Methode muß den Speicherkontext zeichnen; WINDOWS sorgt dafür, daß der 
richtige Ausschnitt angezeigt wird: 


PROCEDURE TFenster.Paint 
( PaintDC : HDC; 
VAR PaintInfo: TPaintStruct); 
BEGIN 
Bitmap_bei_Punkt_einfuegen 
(PaintDC,Schirmspeicher ,SchirmBitmap,0,0,1,1); 
END; 


Schließlich müssen die verwendeten Variablen und Methoden im Anwendungsobjekt 
stehen: 


TYPE 
TFenster = OBJECT (TWindow) 
Schirmspeicher: HDC; 
SchirmBitmap : HBitmap; 
PROCEDURE Paint 


( PaintDC : HDC; 

VAR PaintInfo: TPaintStruct); VIRTUAL; 
PROCEDURE SetupWindow; VIRTUAL; 
DESTRUCTOR Done; VIRTUAL; 

END; 


O— Die Verwendung dieses Speicherkontexts ist ganz einfach: Man hat 

Ol lediglich in den Schirmspeicher statt in den Bildschirmkontext zu 
zeichnen. Beispielsweise wird der Lorenz-Attraktor (Rezept C.7) mit 
folgender Befehlsfolge gezeichnet: 


SetRealRect (W,-17,20,-1,55); 

SetRect (B,10,5,610,405); 

Achsenkreuz (Schirmspeicher ,W,B,7,'X','2'); 

Attraktor (Schirmspeicher ,W,B,Lorenzfunktion,10,28.5,2.6,3000,0); 
InvalidateRect (HWindow,NIL,FALSE); 


Da man den Bildaufbau nicht sieht, ist es nicht sinnvoll (und würde nur die Wartezeit 
unnötig verlängern), eine Verzögerung einzubauen; daher wurde der Parameter 
Verzoegerung in der Prozedur Attraktor gleich 0 gesetzt. Der Befehl InvalidateRect 
bewirkt, daß die Paint-Methode aufgerufen und das Bild sofort gezeichnet wird. 


10 A.7 Vektoren 


Ein Vektor (x9,X1,...:%n) ist eine geordnete Menge von (n+1) Komponen- 
ten. Meist sind die Komponenten eines Vektors reelle Zahlen. Das folgen- 
de Rezept ist jedoch allgemeiner; es stellt ein Objekt bereit, das einen 
Vektor aus beliebigen Komponenten (BYTE, INTEGER, REAL, Records, 
Objekte) speichern kann. Allerdings sollten alle Komponenten denselben Typ haben. 


Die Objektdeklaration lautet: 


TYPE 
PSkalarColl = “"TSkalarColl; 
TSkalarColl = OBJECT(TCollection) 
Groesse: WORD; 
CONSTRUCTOR Init 
(Xmax: INTEGER; 


G : WORD); 
‘ PROCEDURE TSet 
(X: INTEGER; 
P: POINTER); 
FUNCTION TGet (X: INTEGER): POINTER; 
PROCEDURE FreeItem(Item: POINTER); VIRTUAL; 
END; 


Die einzelnen Methoden sind wie folgt definiert: 


CONSTRUCTOR TSkalarColl.Init; 

VAR 
i: INTEGER; 

P: POINTER; 

BEGIN 
TCollection.Init(Xmax+1,0); 
Groesse := G; 

FOR i:=0 TO Xmax DO BEGIN 
GetMem(P,Groesse); 
Insert (P); 

END; {FOR} 

END; 


PROCEDURE TSkalarColl.TSet; 
BEGIN 
IF (X<0) OR (X>Count+1) THEN 
Exit; 


Move (P”,At(X)”,‚Groesse); 
END; 


FUNCTION TSkalarColl.TGet; 
BEGIN 
IF (X<0) OR (X>Count+1) THEN 
TGet := NIL 
ELSE 
TGet := At(X); 
END; 


PROCEDURE TSkalarColl.Freeltem; 
BEGIN 
IF Item<>NIL THEN 
FreeMem(Item,Groesse); 
END; 


Die Variablen und Methoden haben folgende Bedeutung: 


Überträgt den Inhalt von PX nach 7SkalarColl, kann von der 
Anwendung beliebig oft aufgerufen werden 
Gibt einen Zeiger auf die Komponente X zurück; kann von der 
Anwendung beliebig oft aufgerufen werden 
Darf von der Anwendung nicht aufgerufen werden 


Freeltem 


fol 


Die obige Tabelle zeigt den Ge- 
winn eines Unternehmens; das 
nebenstehende Diagramm (ohne 


Koordinatenachsen und Beschrif- 
tung) wird durch folgende Be- 
fehlsfolge gezeichnet: 
VAR 

DC : HDC; 

Werte : PSkalarColl; 

Wertepaar: TPoint; 

wWP : "TPoint; 

i : INTEGER; 
BEGIN 


DC := GetDC (HWindow); 
Werte := New(PSkalarColl,Init(3,Sizeof(TPoint))); 
SetPoint (Wertepaar,1,5); Werte” .TSet(0,@Wertepaar); 
SetPoint (Wertepaar,3,44); Werte”.TSet(1,@Wertepaar); 
SetPoint (Wertepaar,4,127); Werte” .TSet(2,@Wertepaar); 
SetPoint (Wertepaar,6,13); Werte”.TSet(3,@Wertepaar); 
WP := Werte” .TGet(0); 
MoveTo(DC,WP” .X*50+60,300-WP” .Y*2); 
WP := Werte” .TGet(1); 
LineTo(DC,WP* .X*50+60,300-WP“.Y*2); 
WP := Werte” .TGet(2); 
LineTo(DC,WP“ .X*50+60,300-WP” +«Y*2); 
WP := Werte” .TGet(3); 
LineTo(DC,WP“ .X*50+60,300-WP“ .Y*2); 
Dispose(Werte,Done); ReleaseDC (HWindow,DC); 

END; 


12 A.8 Matrizen 


Eine Matrix ist eine rechteckige Anordnung 543 75 
von Zahlen; sie kann als ein Vektor betrachtet 13 27 -12 16 
werden, dessen Komponenten selbst wieder- 3 21 897 -1 
um Vektoren sind. Eine Komponente einer 
Matrix wird durch zwei ganze Zahlen (X%,Y) angesprochen. Das Objekt TVektorColl 
speichert eine Matrix aus Komponenten beliebigen Typs: 


TYPE 
PVektorColl "TVektorColl; 
TVektorColl OBJECT (TCollection) 
CONSTRUCTOR Init(Xmax,Ymax: INTEGER; G: WORD); 
PROCEDURE TSet(X,Y: INTEGER; P: POINTER); 
FUNCTION TGet (X,Y: INTEGER): POINTER; 
PROCEDURE Freeltem(Item: POINTER); VIRTUAL; 


CONSTRUCTOR TVektorColl.Init; 


INTEGER; 
BEGIN 
TCollection.Init(Ymax+1,0); 
FOR i:=0 TO Ymax DO 
Insert (New(PSkalarColl,Init(Xmax,G))); 
END; 


PROCEDURE TVektorColl.TSet; 
BEGIN 
IF (Y<0) OR (Y>Count+1) THEN 
Exit; 
PSkalarColl(At(Y))”.TSet(X,P); 
END; 


FUNCTION TVektorColl.TGet; 
BEGIN 
IF (Y<0) OR (Y>Count+1) THEN 
TGet := NIL 
ELSE 
TGet := PSkalarColl(At(Y))”.TGet(X); 
END; 


PROCEDURE TVektorColl.Freeltem; 
BEGIN 
IF Item<>NIL THEN 
Dispose (PSkalarColl (Item) ‚Done); 
END; 


Die Anwendung ist völlig analog zum vorhergehenden Rezept, nur wird jetzt eine 
Komponente durch zwei Zahlen X (0...Xmax) und Y (0...Ymax) angesprochen. 


Oo Ein typisches Beispiel finden Sie in Rezept C.2 (Julia-Mengen). Dort muß 
ION für jeden Bildschirmpunkt eine Reihe von Zwischenergebnissen 
gespeichert werden. Da ein Bildschirmpunkt durch ein Zahlenpaar (X,Y) 
definiert wird, ist eine Matrix die "natürliche" Datenstruktur für einen 

solchen Zwischenspeicher. 


A.9 Farbkonstanten 13 


TURBO-PASCAL stellt die Standardfunktion RGB zur Verfügung, mit der 

beliebige Farben erzeugt werden können. Sie erwartet drei Parameter (je 

einen für den roten, den grünen und den blauen Farbanteil). Wenn man die 

Farben nicht genau festlegen muß, kann man diesen Aufwand verringern, 
indem man die folgenden Konstanten verwendet: 


CONST 
£fb_schwarz 
£fb_rot 
£fb_gruen 
fb_gelb 


$000000; 
$O0000FF; 
$O00OFFOO; 
SOOFFFF; 
$808080; 
$SFF0000; 
$FFOOFF; 
SFFFFOO; 
S$SFFFFFF; 


fb_grau 
fb_blau 
£fb_violett 
fb_blaugruen 
£fb_ weiss 


[a ee u u u u u 


Diese Konstanten können direkt bei der Erzeugung der Zeichenwerkzeuge eingesetzt 
werden. 


O=—— Die Bedeutung der Farbkonstanten 

ol kann man durch Schwarz-Weiß-Male- 

rei natürlich nicht demonstrieren; ihre 

Anwendung läßt sich jedoch an Hand 

der Konstanten fb_schwarz und fb_weiß zeigen. Das 
nebenstehende Bild wird durch das Programm 


VAR 
DC : HDC; 
Stift,alter_Stift : HPen; 
Pinsel,alter_Pinsel: HBrush; 
BEGIN 
DC := GetDC (HwWindow); 
Stift := CreatePen(ps_Solid,3,fb_weiss); 
Pinsel := CreateSolidBrush(fb_schwarz); 
alter_Pinsel := SelectObject (DC,Pinsel); 
Rectangle(DC,10,10,100,100); 
alter_Stift := SelectObject (DC,Stift); 
Arc(DC,20,20,90,90,10,10,10,10); 
SelectObject (DC,alter_Stift); 
SelectObject (DC,alter_Pinsel); 
DeleteObject (Stift); 
DeleteObject (Pinsel); 
ReleaseDC (HWindow,DC); 
END; 


erhalten. Es zeichnet zunächst ein Quadrat, das mit einem schwarzen Pinsel ausgefüllt 
wird; anschließend wird mit einem weißen Stift ein Kreis hineingezeichnet. 


AAN Hinweise für das Erzeugen (mit CreatePen usw.) und das korrekte Löschen 
der Zeichenwerkzeuge (mit DeleteObject) finden Sie in Rezept W.1. 


14 A.10 Speicher-Information 


Speicherbereiche, die während des Programmlaufs reserviert wurden, sind 
spätestens bei Programmende wieder freizugeben. Andernfalls bleiben 
"Speicherleichen" zurück, auf die keine Anwendung mehr Zugriff hat; im 
schlimmsten Fall kann WINDOWS nicht mehr arbeiten. Die Speicherfrei- 


gabe geschieht nicht automatisch, so daß der Programmierer größte Sorgfalt aufwenden 
muß. 


Nützlich wäre eine Möglichkeit, schon während der Programmausführung den verfügba- 
ren Speicher abfragen zu können. Mit der folgenden Methode des Anwendungsfensters 
ist das möglich: 


PROCEDURE TFenster.Info(VAR Msg: TMessage); 


DC := GetDC (HwWindow); 
RealOut (DC,0,0,MemAvail,0); {Rezept S.6} 
ReleaseDc (HWindow,DC); 

END; 


Diese Methode schreibt den verfügbaren Arbeitsspeicher in die linke obere Ecke des 
Fensters. Ihre Deklaration im Anwendungsobjekt könnte etwa lauten: 


PROCEDURE Info(VAR Msg: TMessage); 
VIRTUAL cm First+cm_ Info; 
Wenn man dafür einen Menüpunkt vorsieht, kann sie jederzeit aufgerufen werden. 


Om Zweckmäßigerweise ruft man diese Methode sofort nach Programmstart 

N®) und vor Programmende auf. Wenn der Speicher weniger geworden ist, 
kann man im allgemeinen annehmen, daß reservierter Speicher nicht 
freigegeben wurde. 


Der Fall, daß bei der Programminitialisierung Speicher reserviert, aber bei Programm- 
ende nicht wieder freigegeben wurde (letzteres ist in der Regel die Aufgabe der Done- 
Methode des Anwendungsfensters), ist auf diese Weise nicht erkennbar. Hier bietet es 
sich an, das Programm mehrmals zu starten und wieder zu beenden. Wenn dabei der 
freie Speicherplatz kontinuierlich abnimmt, ist ein Fehler anzunehmen. Geringfügige 
Schwankungen haben allerdings noch nichts zu besagen. 


B BITMAPS 


16 B.1 Daten einer Bitmap 


Das folgende Rezept liest Informationen über eine Bitmap und überträgt 
sie in die Variable Info (zum Format dieser Variablen vgl. Windows-Refe- 
renzhandbuch). Der Rückgabewert bezeichnet die Anzahl der übertrage- 
nen Bytes; bei einem Fehler ist er 0: 


FUNCTION GetBitmapInfo 
( Bitmap: HBitmap; 
VAR Info : TBitmap): INTEGER; 


BEGIN 
GetBitmapInfo := GetObject (Bitmap,Sizeof(Info) ,@Info); 
END; 


Braucht man nur die Breite der Bitmap, so kann man folgende Funktion verwenden: 


FUNCTION GetBitmapWidth(Bitmap: HBitmap): INTEGER; 
VAR 
Info: TBitmap; 
BEGIN 
IF GetBitmapInfo(Bitmap,Info)=Sizeof(Info) THEN 
GetBitmapWidth := Info.bmwidth 
ELSE 
GetBitmapWidth := 0; 


END; 


Die Höhe einer Bitmap erhält man so: 


FUNCTION GetBitmapHeight (Bitmap: HBitmap): INTEGER; 
VAR 
Info: TBitmap; 
BEGIN 
IF GetBitmapInfo(Bitmap,Info)=Sizeof(Info) THEN 
GetBitmapHeight := Info.bmHeight 
ELSE 
GetBitmapHeight := 0; 


END; 


Om Breite und Höhe einer Bitmap kann man damit wie folgt erhalten: 


Ol ": 
Info : TBitmap; 


Breite: INTEGER; 
Hoehe : INTEGER; 

BEGIN 
GetBitmapInfo(Bitmap,Info); 
Breite := Info.bmwidth; 
Hoehe := Info.bmHeight; 


END; 


Dazu äquivalent ist die Befehlsfolge 


Breite := GetBitmapWidth(Bitmap); 
Hoehe := GetBitmapHeight (Bitmap); 


B.2 Bildschirmbereich in Bitmap 17 


Zwischenablage verwenden. Etwas einfacher ist die Verwendung einer 


Um einen Bildschirmbereich vorübergehend zu speichern, kann man die 
& Bitmap als Zwischenspeicher: 


PROCEDURE Bitmap_bereitstellen_laden 
( Schirm : HDC; 
VAR Speicher: HDC; 
VAR Bitmap HBitmap; 


Quelle : TRect); 


BEGIN 
Speicher := CreateCompatibleDC (Schirm); 
WITH Quelle DO 
Bitmap := CreateCompatibleBitmap(Schirm,right-left,bottom-top); 
SelectObject (Speicher, Bitmap); 
WITH Quelle DO 
BitBlt (Speicher, 0,0,right-left,bottom-top, 
Schirm,left,top,SrcCopy); 


END; 


Hier ist Schirm der Gerätekontext (gewöhnlich der Bildschirm, z.B. PaintDC innerhalb 
einer Paint-Methode), der das zu speichernde Bild enthält, Speicher ein Speicher- 
kontext, der von dieser Prozedur bereitgestellt wird, Bitmap die erzeugte Bitmap, welche 
die Kopie enthält, und Quelle der rechteckige Bereich, der von Schirm nach Bitmap 
kopiert wird. Speicher und Bitmap sind als eine Einheit anzusehen, die durch diese 
Prozedur bereitgestellt wird. 


Der Inhalt dieser Bitmap kann nun mehrmals mit BitBlt und/oder StretchBlt in beliebige 
Gerätekontexte kopiert werden, Beispiele dafür bieten die beiden folgenden Rezepte. 
Zum Schluß muß das Paar Speicher+Bitmap wieder freigegeben werden: 


DeleteDC (Speicher); 
DeleteObject (Bitmap); 


Die Freigabe des Bildschirmkontexts durch DeleteDC(Speicher) muß vor der Freigabe| 
der Bitmap mit DeleteObject(Bitmap) erfolgen. | 


} 


Es ist nicht empfehlenswert, diese beiden Befehle zu einer Prozedur zusammenzufassen, 
da hierbei Speicherverluste auftreten können. 


Oo Eine typische Anwendung verläuft nach folgendem Schema, wobei DC der 


O Bildschirmkontext ist und Bereich das Quellrechteck bezeichnet, das in der 
Bitmap zwischengespeichert wird: 


VAR MemDC: HDC; Bitmap: HBitmap; 

BEGIN 
Bitmap_bereitstellen_laden(DC,MemDC ,‚Bitmap,Bereich); 
BitBlt (Zielkontext,...,MemDC,...); 
StretchBlt (Zielkontext,...,MemDC,...) 
DeleteDC (MemDC); DeleteObject (Bitmap) 

END; 


. 
’ 
. 
r 


18 B.3 Bitmap nach Bildschirm 


geladen wurde, kann mit dem folgenden Rezept in einen Gerätekontext 


Eine Bitmap, die mit dem vorhergehenden Rezept erzeugt und mit Daten 
& (z.B. den Bildschirm) übertragen werden: 


PROCEDURE Bitmap_bei Punkt_einfuegen 
(ziel : HDC; 
Speicher: HDC; 
Bitmap : HBitmap; 
X,Y : INTEGER; 
Mx,My : REAL); 
VAR 


Breite,Hoehe: INTEGER; 
BEGIN 
Breite := GetBitmapWidth(Bitmap); {Rezept B.1} 
Hoehe := GetBitmapHeight (Bitmap); {Rezept B.1} 
StretchBlt (Ziel,X,Y,IntRound (Breite*Mx) , IntRound (Hoehe*My), 
Speicher, 0,0,Breite,Hoehe,SrceCopy); 
END; 


Ziel ist der Zielgerätekontext, Speicher und Bitmap wurden durch das vorhergehende 
Rezept erzeugt. (X,Y) bezeichnet die linke obere Ecke des Rechecks, in das die Daten 
kopiert werden, Mx und My sind Maßstabsfaktoren, welche die Kopie verzerren. Die 
Breite des Zielrechtecks ist (Breite der Bitmap)xMx, die Höhe gleich (Höhe der Bitmap) 
xMy. Für Mx = My = 1 erhält man eine unverzerrte Kopie. 


Das folgende Beispiel 


Om 
Ol kopiert den durch 
Bereich wumschlos- IR 
senen Bildschirm- 
bereich nach Bitmap und setzt ihn 
fünfmal nebeneinander mit wach- 
sender Höhenverzerrung an den 
oberen Rand des Bildschirms. Enthält Bereich z.B. einen Käfer, so erhält man das obige 
Bild wie folgt (die Befehle zum Zeichnen des Käfers und zum Laden von Bereich sind 


weggelassen): 


VAR 
DC,MemDC: HDC; 
Bitmap : HBitmap; 
i : BYTE; 
BEGIN 


DC := GetDC (HWindow); 
Bitmap_bereitstellen_laden(DC,MemDC,Bitmap,Bereich); 
FOR i:=0 TO 4 DO 

WITH Bereich DO 

Bitmap_bei_Punkt_einfuegen 
(DC,MemDC ‚Bitmap,i*(right-left) ,0,1,1+0.2*i); 
DeleteDC (MemDC); 
DeleteObject (Bitmap); 
ReleaseDC (HWindow,DC); 
END; 


B.4 Bitmap nach Bereich | 19 


Mit dem vorhergehenden Rezept konnte eine Bitmap in den Bildschirm 
kopiert werden; die Größe des Zielbereichs ergab sich aus der Größe der 
gespeicherten Bitmap und den Maßstabsfaktoren. Häufig ist jedoch der 
Zielbereich vorgegeben, und die Bitmap soll so verzerrt werden, daß sie 
hineinpaßt. Die folgende Variante erledigt das: 


TH 


PROCEDURE Bitmap_in Bereich _einfuegen 
(Ziel : HDC; 
Speicher: HDC; 
Bitmap HBitmap; 


Bereich : TRect; {Zielbereich} 


Rop 
BEGIN 
WITH Bereich DO 
StretchBlt (Ziel,left,top,right-left,bottom-top,Speicher, 0,0, 
GetBitmapWidth (Bitmap) ‚GetBitmapHeight (Bitmap) ,‚Rop); 


LONGINT); {Rasteroperation} 


END; 


Ziel ist der Gerätekontext, in den die Bitmap kopiert wird. Rop bezeichnet die Raster- 
operation, die beim Kopieren verwendet wird (vgl. das folgende Anwendungsbeispiel). 


oO Das folgende 
®) Beispiel kopiert 
= einen Bereich des 
Bildschirms, der 

durch die Variable Bereich 
gegeben ist, in ein Rechteck 
von der Breite 100 Pixel und 
der Höhe 50Pixel und 


invertiert dabei das Bild: SS 


DC : HDC; 
MemDC : HDC; a b 
Bitmap : HBitmap; 
Bereich: TRect; J 
Ziel : TRect; 

BEGIN 


Bitmap_bereitstellen_laden(DC,MemDC,Bitmap,Bereich); 

SetRect (Ziel,0,0,100,50); 

Bitmap_in Bereich _einfuegen(DC,MemDC,Bitmap,Ziel,Whiteness); 
Bitmap_in Bereich _einfuegen(DC,MemDC ,Bitmap,Ziel,SrcInvert); 
DeleteDC (MemDC); 

DeleteObject (Bitmap); 


... 


END; 


DC ist der Bildschirmkontext. Die Konstante Whiteness färbt zunächst das Ziel weiß; 
mit SrcInvert wird die Bitmap invertiert ins Ziel kopiert. Das obige Bild zeigt einen 
Drudenfuß (a, Bereich gestrichelt markiert) und das entsprechend verzerrte Ergebnis (b). 


20 B.5 Bitmap drehen 


Bitmap zu kopieren und ihn anschließend um einen beliebigen Winkel 

verdreht anzuzeigen. Die Windows-API bietet dafür keinen Befehl an; mit 

StretchBlt kann man nur Spiegelungen zur X- und Y-Achse erhalten. Das 
ist nicht verwunderlich, da eine Drehung keine besonders "natürliche" Operation auf 
einer pixelorientierten Oberfläche ist: ein Rasterpunkt geht bei einer Drehung im 
allgemeinen in einen Punkt über, der nicht auf dem Raster liegt. Daher muß man einen 
benachbarten Rasterpunkt einfärben, so daß man kein besonders "sauberes" Bild er- 
warten kann. 


f Eine reizvolle Aufgabe wäre es, einen Ausschnitt des Bildschirms in eine 


Nimmt man diese Unzulänglichkeit in Kauf, und hat man (etwa mit dem Rezept B.2 
Bitmap_bereitstellen_laden) ein Bild in der durch Speicher und Bitmap beschriebenen 
Bitmap, so kann man sie mit der folgenden Prozedur verdreht in den Kontext Ziel 
übertragen: 


PROCEDURE Bitmap_drehen 
(Ziel : HDC; 
Speicher: HDC; 

i : HBitmap; 
: INTEGER; 
: INTEGER); 


: INTEGER; {Zielkoordinaten (Bildschirm)} 
: INTEGER; {Quellkoordinaten (Bitmap)} 
: INTEGER; {Abstand vom Ursprung} 
INTEGER; {Breite und Höhe des Rechtecks} 
INTEGER; {Diagonale des Rechtecks} 
REAL; {Sinus, Cosinus} 
TPoint; {Quellpunkt (Ox,Oy)} 
TRect; {Quellrechteck (Bitmap)} 


cos (PiZehntelgrad*alpha); 
sin(PiZehntelgrad*alpha); 
GetBitmapWidth (Bitmap); {Rezept B.1} 
GetBitmapHeight (Bitmap); {Rezept B.1} 
IntRound (Sqrt (Sqr(B*1.0)+Sqr(H*1.0))); {Argumente REAL!} 
SetRect (Or,0,0,B,H); 
FOR 2x := X-R TO X+R DO BEGIN 
Dx := 2x - X; 
FOR Zy := Y-R TO Y+R DO BEGIN 
= Y - Zy; 
:= IntRound(Dx*C + Dy*S); {Rezept A.1} 
:= IntRound(Dx*S - Dy*C + H); 
SetPoint(Op,0x,Oy); {Rezept U.2} 
IF PtInRect(Qr,Qp) THEN 
SetPixel(Ziel,Zx,Zy,GetPixel (Speicher, ,‚Qx,Qy)); 
END; {FOR Zy} 
END; {FOR Zx} 
END; 


. 
‘ 
. 
° 
. 
° 
. 
s 
. 
° 


X, Y und alpha beschreiben das Zielrechteck nach derselben Konvention wie Rezept G.4 
(schiefes Rechteck); die Abmessungen des Zielrechtecks stimmen mit den Abmessungen 
der Bitmap überein. 


Neben der bereits erwähnten Unschärfe hat diese Prozedur den weiteren Nachteil, sehr 
langsam zu sein. Eine Optimierung ist daher wünschenswert und auch durchaus möglich. 
Sie würde jedoch den Rahmen eines Rezepts sprengen. Für den Leser, der selbst eine 
Optimierung durchführen möchte, folgt nun eine Beschreibung der Grundideen dieses 
Rezepts: 


Die naheliegende (und auch ziemlich schnelle) Methode wäre, die Bitmap pixelweise auf 
den Bildschirm zu übertragen. Die erforderliche Rundung der Zielkoordinaten auf 
INTEGER-Werte bringt es jedoch mit sich, daß manche Punkte im Zielrechteck 
mehrmals und andere Punkte überhaupt nicht angesprochen werden. Das Bild einer 
schwarzen Fläche wird daher grau erscheinen. Um das zu vermeiden, geht das Rezept 
den umgekehrten Weg: es sucht zu jedem Zielpunkt den zugehörigen Quellpunkt und 
färbt den Zielpunkt entsprechend. Ein optimales Programm würde nur solche Zielpunkte 
berücksichtigen, die im schrägen Zielrechteck liegen. Das Rezept untersucht ein Quadrat 
auf dem Bildschirm, welches das Zielrechteck mit Sicherheit enthält. Jedes Pixel in 
diesem Quadrat, dessen Quellpunkt innerhalb der Bitmap liegt, wird entsprechend 
eingefärbt. Die Fläche dieses Quadrats beträgt ein Mehrfaches der Zielrechtecksfläche; 
durch eine günstige Wahl des zu untersuchenden Bildschirmbereichs könnte man also 
viel Rechenzeit einsparen. 


Om Das folgende 
N®) Beispiel ver- 
dreht den ne- 
benstehen- 
den Tausendfüßler (a) um 
20° (b). Zur Verdeutli- 
chung sind die Bilder um- 
rahmt. Bereich bezeichnet 
den Bildschirmbereich, in 
dem der ursprüngliche 
Tausendfüßler liegt: 


VAR 
DC,MemDC: HDC; 
Bitmap : HBitmap; 
Bereich : TRect; 
BEGIN 
DC := GetDC (HWindow); 
SetRect (Bereich, ....); 
Bitmap_bereitstellen_laden(DC,MemDC ,Bitmap,Bereich); 
Bitmap_drehen(DC,MemDC,Bitmap,100,200,200); 
DeleteDC (MemDC); 
DeleteObject (Bitmap); 
ReleaseDC (HWwindow,DC); 
END; 


22 B.6 Bitmap verzerren 


Hat man (etwa mit Rezept B.2) ein Bild in einer Bitmap, so kann man es 
mit dem folgenden Rezept schräg verzerrt in einen Kontext Ziel übertra- 
gen. Die Parameter sind dieselben wie in Rezept B.5 (Bitmap drehen); das 
Ergebnis finden Sie im Bild weiter unten auf dieser Seite. 
PROCEDURE Bitmap_verzerren 
(Ziel : HDC; 

Speicher : HDC; 

Bitmap : HBitmap; 

X,Y,alpha: INTEGER); 


2x,2y,0x,0y,B,H,dx: INTEGER; 
c : REAL; 


BEGIN 
IF sin(PiZehntelgrad*alpha)=0 THEN Exit; 
C := cos(PiZehntelgrad*alpha)/sin(PiZehntelgrad*alpha); 


B := GetBitmapWidth(Bitmap); H := GetBitmapHeight (Bitmap); 
FOR Oy := 0 TO H DO BEGIN 
dx := IntRound(C*(H-Oy)); 
FOR Ox := 0 TO B DO 
SetPixel(Ziel,X+dX+Qx,Y-H+Qy,GetPixel (Speicher ‚Qx,Oy)); 
END; {FOR Oy} 
END; 


Die nebenstehende 
Zeichnung zeigt links 
eine originale Bitmap 
und rechts zwei um den 
Winkel 80° bzw. 110° 
verzerrte Kopien. B 
und H sind die Ab- 
messungen der Bitmap; 
die gepunkteten Linien 
erläutern den Berechnungsvorgang. Das Bild wird so erhalten: 


VAR 
DC,MemDC: HDC; Bitmap: HBitmap; 
B : TRect; U : TPoint; 
BEGIN 


DC := GetDC (HWindow); 
SetRect (B,50,100,150,400); SetPoint(U,100,390); 
MaennchenM(DC,U,200); 
Bitmap_bereitstellen_laden(DC,MemDC ,‚Bitmap,B); 
Bitmap_verzerren(DC,MemDC ,‚Bitmap,200,400,800); 
Bitmap_verzerren(DC,MemDC ,Bitmap,500,400,1100); 
DeleteDC (MemDC); DeleteObject (Bitmap); 
ReleaseDC (HWindow,DC); 

END; 


C CHAOS 


24 C.1 Julia-Mengen 


Julia-Mengen sind ziemlich schwierig und äußerst zeitaufwendig zu be- 
rechnen; dafür lassen sich allerdings besonders ansprechende Bilder erzeu- 
gen. Das folgende Rezept zeigt, wie es geht: 


PROCEDURE Julia 
(Kontext 
Welt 
Bereich 
£r,fi 
Iterationen,Rand 
Cr,Ci 

CONST 
Grenze 

VAR 
X,Y,Zaehler: INTEGER; 

V,W,V_alt : REAL; 
BEGIN 
FOR X:=Bereich.left TO Bereich.right DO BEGIN 
FOR Y:=Bereich.top TO Bereich.bottom DO BEGIN 

Zaehler := 0; 

V := XSchirmToWelt (X,Welt,Bereich); {Rezept U.4} 

W := YSchirmToWelt(Y,Welt,Bereich); {Rezept U.4} 

REPEAT 
Inc(Zaehler); 
vVv_ alt := V; 
V s= fr(V,W,Cr); 
W := fi(V_ alt,W,Ci); 

UNTIL (Sqr(V)+Sqr(W)>Grenze) OR (Zaehler>=Iterationen); 

IF (Zaehler=Iterationen) THEN 
SetPixel(Kontext,X,Y,£fb_schwarz) 

ELSE IF (Zaehler<Rand) THEN IF odd(Zaehler) THEN 
SetPixel(Kontext,X,Y,£fb_rot) 

ELSE IF (odd(X) AND odd(Y)) THEN 
SetPixel(Kontext,X,Y,fb_blau); 

END; {FOR Y} 
END; {FOR X} 
END; 


HDC; 

TRealRect; {Ausschn. der zu zeichnenden Menge} 
TRect; {Schirmbereich, in dem gezeichnet wird} 
Funktionstyp_3; {Erzeugende Funktion} 

INTEGER; 

REAL); {Parameter der erzeugenden Funktion} 


Kontext ist der Bildschirm, in den gezeichnet wird. Alle Punkte, die zur Julia-Menge ge- 
hören, werden schwarz gefärbt. Wählt man den Parameter Rand > 0, so erscheinen "Hö- 
henlinien" im Bild, und zwar abwechselnd rot ausgefüllt bzw. blau gerastert. Die Bedeu- 
tung dieser Höhenlinien können Sie dem Buch [1] entnehmen. 

Die Julia-Menge wird durch eine komplexe Funktion erzeugt, die man zweckmäßiger- 
weise durch zwei reelle Funktionen fr, fi darstellt. Deren Typ lautet: 


Funktionstyp 3 = FUNCTION(X,Y,C: REAL): REAL; 
Die einfachste Funktion, mit der man interessante Bilder enthält, ist z2-c. Den Realteil 
erhält man durch 


FUNCTION Juliafunktion_2r(X,Y,C: REAL): REAL; 
BEGIN 


Juliafunktion_2r := Sqr(X) - Sqr(Y) - C; 
END; 


wobei X =Re(z), Y= Im(z) und C =Re(c) ist. Der Imaginärteil wird mit 


FUNCTION Juliafunktion_2i(X,Y,C: 
BEGIN 


| Juliafunktion_2i := 2*X*Y - C; 
END; 


berechnet; dabei ist C = Im(c). Das Rezept gibt Cr bzw. Ci an diese beiden Funktionen 
weiter. 


Auch auf schnellen PCs benötigt das Rezept sehr viel Rechenzeit. Hinweise, ein 
Programm wie dieses zu optimieren (wie immer auf Kosten von Übersichtlichkeit und 
Programmkürze), findet man ebenfalls in [1]. 


ol 


Das nebenste- 
hende Bild zeigt 
einen kleinen 
Ausschnitt der 
Julia-Menge zu 
z2-c. Die Hö- 


henlinien er- 
scheinen auf dem 
Bildschirm rot 


und blau, sind 
aber auch im 
Druck deutlich 
von der ei- 
gentlichen Julia- 
Menge zu unter- 
scheiden. Fol- 
gende Befehle 
führten zu diesem 
Bild: 

SetRect (B,10,10,400,400); 


SetRealRect (W,0.29,0.31,-0.21,-0.19); 
Julia(DC,W,B,Juliafunktion_2r,Juliafunktion_2i,200,60,0.745,0.113); 


Wenn Sie am Bildschirm beobachten wollen, wie sich das Bild allmählich 
entwickelt, verwenden Sie das Rezept auf der nächsten Seite. 


26 C.2 Julia-Mengen (Variante) 


Beim vorherigen Rezept wurde jeder Punkt der Julia-Menge endgültig be- 
rechnet und dann angezeigt. Das hat den Nachteil, daß das Bild sehr lang- 
sam (von links nach rechts) aufgebaut wird, so daß man lange Zeit nichts 
erkennen kann. Daher wird hier eine Variante vorgestellt, die für jeden 
Bildpunkt jeweils nur einen Rechenschritt durchführt und das Ergebnis sofort anzeigt. 
Dadurch kann man beobachten, wie das Bild entsteht und immer differenzierter wird: 


PROCEDURE Julial 
(Kontext HDC; 
Welt TRealRect; 
B TRect; 
£r,fi Funktionstyp_3; 
Iterationen,Rand: INTEGER; 
i REAL); 


RyJulia = RECORD 
V_alt,W_alt,V,W: REAL; 


BOOLEAN; 


VAR 
X,Y,Zaehler: INTEGER; 
WK : PVektorColl; {Rezept A.8} 
J : "Rdulia; 
BEGIN 
wITH B DO BEGIN 
WK := New(PVektorColl, 
Init(right-left,bottom-top,Sizeof(RJulia))); 
FOR X:=left TO right DO FOR Y:=top TO bottom DO BEGIN 
J := WK”.TGet (X-left,Y-top); 
J”.V := XSchirmToWelt(X,Welt,B); {Rezept U.4} 
J”.W := YSchirmToWelt(Y,Welt,B); {Rezept U.4} 
J”.fertig := FALSE; 
WK°.TSet (X-left,Y-top,J); 
END; {FOR Y} 
FOR Zaehler:=1 TO Iterationen DO BEGIN 
FOR X:=left TO right DO FOR Y:=top TO bottom DO BEGIN 
J := WK”.TGet (X-left,Y-top); 
IF NOT J°.£fertig THEN BEGIN 
J”.V_alt := J”.V; J°.W_alt := J°.W; 
J°.V := £r(J°.V_alt,J°.W_alt,Cr); 
J’.W := fi(J”.V_alt,J°.W_alt,Ci); 
IF (Sqr(J”.V)+Sqr(J”.W)>Grenze) THEN BEGIN 
J°.fertig := TRUE; SetPixel(Kontext,X,Y,fb_weiss); 
IF (Zaehler<Rand) THEN IF odd(Zaehler) THEN 
SetPixel (Kontext,X,Y,£b_rot) 
ELSE IF (odd(X) AND odd(Y)) THEN 
SetPixel (Kontext,X,Y,fb_blau); 
END {IF} 
ELSE SetPixel(Kontext,X,Y,fb_schwarz); 
END; {IF NOT fertig} 
WK”.TSet (X-left,Y-top,J); 
END; {FOR Y} 
END; {FOR Zaehler} 
END; {WITH} 
Dispose (WK,Done); 
END; 


27 


Der große Nachteil dieser Vorgangsweise ist der, daß für jeden Bildpunkt die 
Zwischenergebnisse gespeichert werden müssen (ein Bild aus 400x400 Pixeln hat 
160 000 Punkte!). Dieser enorme Speicherplatz kann nur dynamisch reserviert werden; 
da ein Bildpunkt durch zwei INTEGER-Zahlen (X,Y) angesprochen wird, bietet sich die 
Verwendung einer Matrix (Rezept A.8) an. 


Durch die vielen Speicherzugriffe läuft dieses Rezept etwas langsamer als das vorherige; 
kritisch wird es allerdings erst, wenn dazu die Festplatte benötigt wird. 


Oo Die untenstehenden Bilder zeigen einen Ausschnitt aus der Julia-Menge 
ON von S. 25; sie wurden mit der Befehlsfolge 


SetRect (B,10,10,210,110); 

SetRealRect (W, 0.295,0.305,-0.195,-0.190); 

Julial(DC,W,B, 
Juliafunktion_2r,Juliafunktion_2i,200,60,0.745,0.113); 


erhalten. Bei den ersten 23 Iterationen geschieht noch nichts. Von da ab kann man 
beobachten, wie der Reihe nach die Höhenlinien entstehen und sich anschließend das 
Bild immer weiter entwickelt. 


23 Iterationen 26 Iterationen 


X, 


120 Iterationen 200 Iterationen 


28 C.3 Apfelmännchen 


Das Apfelmännchen ist eine Variante der Julia-Menge (Rezept C.1). Mit 
dem folgenden Rezept können Sie es zeichnen. Wie dort werden die 
Höhenlinien abwechselnd rot ausgefüllt bzw. blau gerastert. 


PROCEDURE Apfel 
(Kontext HDC; 
Welt TRealRect; {Rezept U.1} 
Bereich TRect; 
£fr,fi Funktionstyp_3; {Rezept C.1} 
Iterationen,Rand: INTEGER; 
Sx,Sy REAL); 
CONST 
Grenze = 100; 
VAR 
xX,Y,Zaehler : INTEGER; 
V,W,V_alt,Cr,Ci: REAL; 
BEGIN 
FOR X:=Bereich.left TO Bereich.right DO BEGIN 
FOR Y:=Bereich.top TO Bereich.bottom DO BEGIN 
Zaehler := 0; V := Sx; W := Sy; 
Cr := XSchirmToWelt (X,Welt,Bereich); {Rezept U.4} 
Ci := YSchirmToWelt(Y,Welt,Bereich); {Rezept U.4} 
REPEAT 
Inc(Zaehler); V_alt := V; 
V := fr(V,W,Cr); W := fi(V_alt,W,Ci); 
UNTIL (Sqr(V)+Sqr(W)>Grenze) OR (Zaehler>=Iterationen); 
IF (Zaehler=Iterationen) THEN 
SetPixel (Kontext,X,Y,fb_schwarz) 
ELSE IF (Zaehler<Rand) THEN IF odd(Zaehler) THEN 
SetPixel(Kontext,X,Y,£fb_rot) 
ELSE IF (odd(X) AND odd(Y)) THEN 
SetPixel (Kontext,X,Y,£fb_blau); 
END; {FOR Y} 
END; {FOR X} 
END; 


O—— Im Bild rechts sehen Sie 
Ol ein  "Standard"-Apfel- 
männchen. Das eigentli- 
che Apfelmännchen 
liegt innen; die äußeren Bänder sind 
die Höhenlinien. Das Bild wurde so 
gezeichnet: 
SetRect (B,10,10,400,400); 
SetRealRect 
(W,-0.5,1.5,-1,1); 
Apfel(DC,W,B, 
Juliafunktion_2r, 


Juliafunktion_2i, 
500,50,0,0); 


Der blau gerasterte Anteil der 
Höhenlinien ist weiß gezeichnet. 


C.4 Feigenbaumdiagramme 29 


Feigenbaumdiagramme sind wie Julia-Mengen und Apfelmännchen 
fraktale Gebilde. Im Gegensatz zu letzteren sind sie jedoch mit dem 
folgenden Rezept viel rascher zu zeichnen: 


PROCEDURE Feigenbaum 
(Kontext HDC; 
Welt TRealRect; {Rezept U.1} 
Bereich TRect; {Bereich, in dem gezeichnet wird} 
Funktionstyp_2; 
Leerschritte INTEGER; {Iterationsschritte ohne Zeichnen} 
Zeichenschritte: INTEGER; {Iterationsschritte mit Zeichnen} 
Start REAL); {Startwert für p} 
VAR 
i: INTEGER; k,p: REAL; Punkt: TPoint; 
BEGIN 
FOR Punkt.X:=Bereich.left TO Bereich.right DO BEGIN 
k := XSchirmToWelt (Punkt.X,Welt,Bereich); p := Start; 
FOR i:=0 TO Leerschritte DO p := f(p,k); 
FOR i:=0 TO Zeichenschritte DO BEGIN 
p := f(pık); 
Punkt.Y := YWeltToSchirm(p,Welt,Bereich); {Rezept U.3} 
IF PtInRect (Bereich,Punkt) THEN 
SetPixel (Kontext ,Punkt.X,Punkt.Y,fb_schwarz); 
END; {FOR i} 
END; {FOR X} 
END; 


Kontext ist der Bildschirm, in den gezeichnet wird; mit f werden die Iterationen 
berechnet. Letztere ist eine reelle Funktion zweier reeller Variabler: 


Funktionstyp_2 = FUNCTION(X,Y: REAL): REAL; 


Gewöhnlich verwendet man folgende Funktion: 


FUNCTION Feigenbaumfunktion(p,k: REAL): REAL; 

BEGIN 
IF Abs(p)>1E15 THEN Feigenbaumfunktion := -k*1E30 
ELSE Feigenbaumfunktion := p + k*p*(1-p); 

END; 


Da bei derartigen Iterationen leicht ein Fließkommaüberlauf auftreten kann (das 
geschieht bereits bei k=3,1), ist die Begrenzung der Funktionswerte notwendig. 


om Das nebenstehende Fei- 
ION genbaumdiagramm kann 
wie folgt gezeichnet wer- 
den; dabei ist DC der 
Bildschirmkontext; B und W sind vom 


Typ TRect bzw. TRealRect: 


SetRect (B,100,100,500,300); 
SetRealRect (W,1.8,3,0,1.5); 
Feigenbaum(DC,W,B,Feigenbaumfunktion,100,100,0.3); 


p=1,5 


p=0 


30 C.5 Attraktoren 


Reizvoll ist es, seltsame Attraktoren auf den Bildschirm zu zeichnen. 
Wenn man noch eine Verzögerung einbaut, kann man beobachten, wie sich 
die Kurve entwickelt. Die Prozedur 


PROCEDURE Attraktor 
(Kontext 


HDC; 

TRealRect; {Zu zeichnender Ausschn. des Attr.} 
TRect; {Zielbereich für diesen Ausschnitt} 
Funktionstyp_33; {Erzeugende Funktion des Attr.} 
a,b,c REAL; {Parameter der erzeugenden Funktion} 
Schritte LONGINT; 

Verzoegerung: LONGINT); 


£(X,Y,Z,a,b,c); 

MoveTo (Kontext ,XWeltToSchirm(X,W,S) , YWeltToSchirm(2,W,S)); 

FOR i:=1 TO Schritte DO BEGIN 
£(X,Y,2,a,b,c); 
LineTo(Kontext ,XWeltToSchirm(X,W,S) ,YWeltToSchirm(2,W,S)); 
FOR k:=0 TO Verzoegerung DO ; 

END; {FOR} 

END; 


erledigt diese Aufgabe. Die erzeugende Funktion / hat den Typ 


Funktionstyp 33 = PROCEDURE (VAR X%,Y,Z: REAL; a,b,c: REAL); 


und berechnet eine numerische Lösung eines Systems dreier gewöhnlicher 
Differentialgleichungen. Beispiele finden Sie in den beiden folgenden Rezepten. 


S ist der Bildschirmbereich, in den der Weltbereich (vgl. Rezept U.1) W 
abgebildet wird. Das Rezept ergibt immer den ganzen Attraktor; wenn 
dieser über W hinausreicht, dann wird auch über S hinaus gezeichnet. 

| 


Die Prozedur Attraktor projiziert die von f erzeugte räumliche Kurve auf 
die XZ-Ebene und stellt das Ergebnis auf dem Bildschirm dar. Sie können 
eine andere Projektion erhalten, indem Sie die Prozedur abwandeln. Eine 
Projektion auf die YZ-Ebene bekommen Sie mit den Befehlen 
MoveTo (Kontext ,XWeltToSchirm(Y,W,S) ,YWeltToSchirm(2,W,S)); 
LineTo (Kontext, XWeltToSchirm(Y,W,S) ,‚YWeltToSchirm(2,W,S)); 
Analog ergibt sich eine Projektion auf die XY-Ebene mit 


MoveTo (Kontext ‚XWeltToSchirm(X,W,S),YWeltToSchirm(Y,W,S) 
LineTo (Kontext ,XWeltToSchirm(X,W,S) ,‚YWeltToSchirm(Y,W, 


); 
S)); 


Die Projektion auf eine beliebige Ebene ist ebenfalls möglich, aber komplizierter. 


C.6 Rössler-Attraktor | 31 


durch das folgende Glei- 
chungssystem beschrieben 


(el. BD: 
dx = -Y-2; 
di "72 = Xtaty; 
ı= b*+X+2Z* (X-c); 
= X + dt*+dX; 
Varta, = Y + dt*+dY; 
dr = Z + dt*d2; 
dz 
du” bx - cz +xz 
PROCEDURE RoesslerfunktionYZ 
. . . VAR X,Y,Z: REAL; b,c: REAL); 
Die erzeugende Funktion finden Sie oben. ( Er BEErg Ji 


Diese Funktion ergibt eine Projektion auf 
die XZ-Ebene. Eine Projektion auf die YZ- | _4X,dY,d2: REAL; 


Ebene erhält man, indem man das Rezept | day -X-2; 
Attraktor (Rezept C.5) entsprechend um- a (X-e); 
schreibt oder die nebenstehende Funktion + dt*dX; 


verwendet, bei der die Variablen X und Y 
vertauscht wurden. 


O1 

In den nebenste- 
henden Projekti- 
onen des Röss- 
ler-Attraktors 
sind zur Ver- 
deutlichung die 
Koordinatenach- 
sen eingezeich- 
net. Das Bild 


erhält man fol- 
gendermaßen: —. 


SetRect(B,10,10,310,410); 

SetRealRect (W,-6,8,-1,20); 

Attraktor (DC,W,B,RoesslerfunktionX2,0.41,0.1,2.1,10000,0); 
SetRect (B,320,10,620,410); 

SetRealRect (W,-8,6,-1,20); 

Attraktor (DC,W,B,RoesslerfunktionYZ,0.41,0.1,2.1,10000,0); 


32 C.7 Lorenz-Attraktor 


Rechts finden Sie die |PROCEDURE Lorenzfunktion 


erzeugende Funktion des | (VAR X,Y,2: REAL; 
a,b,c: REAL); 


Lorenz-Attraktors. Er wird 
durch das folgende Glei- 
chungssystem beschrieben (vgl. [1]): 


dX,dY,d2: REAL; 


dr BEGIN 
de a -%) dX := at(Y-X); 
e := X*(b-2)-Y; 
ay_ = X*Y-c#Z; 
dr br -y-xz X + dt#*dX; 
Y + dt#*dy; 
dz Z + dt*dZ; 
um 


Der Lorenz-Attraktor kann in zwei Bereiche eingeteilt werden, die, etwas vereinfacht 
gesprochen, zu beiden Seiten der Z-Achse liegen. Meist verweilt die Kurve längere Zeit 
in einem Bereich, um dann plötzlich und unvorhersehbar die Seite zu wechseln. Dieses 
"chaotische" Verhalten läßt sich gut auf dem Bildschirm beobachten, wenn man den 
Parameter Verzoegerung im Rezept Attraktor geeignet wählt. 


O— Das untenstehende Bild eines Lorenz-Attraktors wurde einschließlich des 
Ol Achsenkreuzes mit folgenden Befehlen gezeichnet: 


SetRect (B,10,5,610,405); 

SetRealRect (W,-17,20,-1,55); 

Achsenkreuz (DC,W,B,7,'X','2'); 

Attraktor (DC,W,B,Lorenzfunktion,10,28.5,2.6,3000,4000); 


RUCKEN 


34 D.1 Druckerkontext bereitstellen 


Drucken ist in WINDOWS eine ziemlich komplizierte Angelegenheit. 
Dazu benötigen Sie einen Druckerkontext, in den Sie wie in einen anderen 
Gerätekontext (etwa den Bildschirmkontext) zeichnen und schreiben 
können. Den Druckerkontext erhalten Sie mit dem folgenden Rezept: 


FUNCTION Druckerkontext_bereitstellen: HDC; 
VAR 
Daten: ARRAY[0..80] OF CHAR; 
P2,P3: PChar; 
BEGIN 
Druckerkontext_bereitstellen := 0; 
GetProfileString( 'windows','device','',Daten,Sizeof(Daten)); 
P2 := StrScan(Daten, ','); 


IF P2=NIL THEN Exit; 

P2° := #0; Inc(P2); 

P3 := StrScan(P2,','); 

IF P3=NIL THEN Exit; 

P3° := #0; Inc(P3); 

Druckerkontext_bereitstellen := CreateDC (P2,Daten,P3,NIL); 
END; 


Oo Damit der Inhalt 

Ol des Druckerkon- 

texts zum Drucker 

geschickt wird, 

sind drei Escape-Befehle not- 

wendig, wie Sie dem folgenden 
Beispiel entnehmen können: 


VAR 

: HDC; 

: TPoint; 
: TRect; 


D 
U 
B 
BEGIN 
DC := Druckerkontext_bereitstellen; 
Escape (DC,StartDoc,0,NIL,NIL); {Ausgabe zum Drucker schicken} 
SetPoint(U,300,200); 
SetRect (B,100,100,500,300); 
Funktionsgraph(DC,U,B,20,20,Sinus); 
MoveLine(DC,B.left,U.Y,B.right,U.Y); 
MoveLine(DC,U.X,B.top,U.X,B.bottom); 
Escape (DC,NewFrame, 0,NIL,NIL); {Seitenvorschub} 
Escape (DC,EndDoc,0,NIL,NIL); {Ausgabe fertig} 
DeleteDC (DC); 
END; 


Dieses Programm schickt das obige Bild direkt zum Drucker. Am Schluß dürfen Sie 
nicht vergessen, den Druckerkontext mit DeleteDC wieder freizugeben. 


Die Dokumentation zu TURBO-PASCAL für WINDOWS hüllt sich zum 


BAIAN Thema "Drucken" in vornehmes Schweigen. Eine ausführliche Darstellung 
finden Sie in [2]. 


D.2 Text drucken 


TYPE 
TTextDruck = OBJECT 
DC : HDC; {Druckerkontext} 
StartX,StartY: INTEGER; {Druckbeginn} 
Zeilenabstand: INTEGER; 


. . Y : INTEGER; {Aktuelle Druckposition} 
Wie bereits aus PROCEDURE Init(Sx,Sy,Abstand: INTEGER); 
PROCEDURE Done; 
dem vorhergehen- PROCEDURE Zeile(Z: STRING); 
den Rezept er- PROCEDURE Seitenvorschub; 


sichtlich ist, be Li 


nötigt man zum Druck eine ganze Reihe von Aktionen. Diese sind im obigen Kasten zu 
einem Objekt zusammengefaßt. Die Methoden lauten: 


PROCEDURE TTextDruck.Init; 
BEGIN 
StartX := Sx; StartY := Sy; 
Zeilenabstand := Abstand; 
Y := StartY; 
DC := 
Druckerkontext_bereitstellen; 
Escape (DC,StartDoc,0,NIL,NIL); 
END; 


PROCEDURE TTextDruck.Done; 

BEGIN 
Escape (DC,NewFrame, 0,NIL,NIL); 
Escape (DC,EndDoc,0,NIL,NIL); 
DeleteDC (DC); 

END; 


PROCEDURE TTextDruck.Zeile; 

BEGIN 
TextOutString(DC,StartX,Y,2Z); 
Inc(Y,Zeilenabstand); 

END; 


PROCEDURE 

TTextDruck.Seitenvorschub; 
BEGIN 

Y := StartY; 

Escape (DC,NewFrame, 0,NIL,NIL); 
END; 


Die Prozedur Init legt die linke obere Ecke 
des Zeichenbereichs sowie den Zeilenab- 
stand fest, stellt einen Druckerkontext bereit 
und startet die Übertragung der Daten zum 
Drucker. Zeile schickt eine Zeile, 
Seitenvorschub einen Seitenvorschub zum 
Drucker. Done startet den Druckvorgang und gibt den Druckerkontext wieder frei. 


O—— Eine typische VAR a n 
Druc : TTextDruck; 
MO Anwendung Zaehler: INTEGER; 
dieses Re- Datei : TEXT; 
2 : STRING; 


zepts ist das pecın 
Drucken einer Datei. Das Assign(Datei, 'DRUTEST.PAS'); Reset (Datei); 


Lan: Druck. Init(200,100,36); 
nebenstehende Beispiel Zaehler := 0; 


zeigt die Vorgangsweise. WHILE NOT Eof(Datei) DO 
. . WITH Druck DO BEGIN 
Die Textdatei DRUIESTPAS Inc (Zaehler); 
wird Zeile für Zeile gelesen lach 2); 
eile(2); 
und zum Drucker ge- IF Zaehler=60 THEN BEGIN 
schickt; nach jeweils 60 Seitenvorschub; Zaehler := 0; 
Zeilen wird eine neue Seite END? TUE} 


END; {WITH} 
begonnen. Gedruckt wird Druck.Done; Close (Datei); 


allerdings nicht mit dem ENDE 
aktuellen Bildschirmzeichensatz, sondern mit dem Zeichensatz des Druckers. 


36 D.3 Bilder drucken 


Das Objekt TTextDruck des vorhergehenden Rezepts kann auch zum 
gemischten Drucken von Text und Zeichnungen verwendet werden. Das 

Feld Y dient dabei zur Verwaltung der vertikalen Druckposition. 

Beim Schreiben einer Textzeile mit TTextDruck.Zeile wird Y automatisch 
um eine Zeile nach unten verschoben. Wenn Sie eine Zeichnung drucken, müssen Sie 
deren Position auf dem Blatt selbst festlegen. Um unter der Zeichnung wieder Text zu 
drucken, müssen Sie Y neu bestimmen, etwa mit dem Befehl 


Inc(Y,H); 


dabei ist A die Höhe der Zeichnung in Pixeln. 


CO Das neben- 
®) stehndeBd|[We ichkäfer 
ist ein Bei- 


spiel für die 
gemischte Ausgabe von 
Text und Grafik auf dem 
Drucker. Der Text kann je 
nach Typ und Einstellung 
des Druckers unterschied- 


lich aussehen. Folgendes i ; 
Programm führte zu dien | DLld- 1%. :Cansharis Tisea 


sem Druckbild- (gemeiner Weichkäfer) 


= 25; 
B= 100; 


H : INTEGER; 
Druck: TTextDruck; 

BEGIN 
Druck.Init(100,10,48); 
Druck.Zeile(Weichkäfer'); 
H := 10 + 3*A DIV 2 + B; {Y-Koordinate des Käfers} 
Kaefer (Druck.DC,Druck.StartX+2*A,Druck.Y+H,A,B); 
H :=H + B + 10; {Höhe des Käfers} 
Inc(Druck.Y,H); {Vertikale Textposition} 
Druck.Zeile('Bild 1: Cantharis fusca'); 
Druck.Zeile('(gemeiner Weichkäfer) '); 
Druck.Done; 

END; 


Die beschriebene Vorgangsweise hat zwei wesentliche Nachteile. Die 
BAIAN Zeichnungen werden pixelweise gedruckt, sind also meist ziemlich klein. 
Zudem wird der Text mit dem Zeichensatz des Druckers gedruckt, paßt 


also i.a. nicht zur Zeichnung: das Druckergebnis sieht anders aus als ein 
mit denselben Befehlen erzeugtes Schirmbild. Abhilfe schafft hier das nächste Rezept. 


D.4 Speicherkontext drucken 


gemeinsam drucken, so sollte 

man nicht direkt in den Druk- 

kerkontext schreiben, weil 
dann nicht die Bildschirmschrift, sondern 
die aktuelle Druckerschrift verwendet wird. 
Das vorliegende Rezept stellt einen Spei- 
cherkontext bereit, in den man wie in den 
Bildschirm schreiben und zeichnen kann. 


PROCEDURE TDruck.Init; 
BEGIN 
TTextDruck.Init 
(Sx,Sy,Abstand); 
Breite := B+Sx; 
Hoehe := H+Sy; 
Bitmap := 
CreateCompatibleBitmap 
(Schirm,Breite,Hoehe); 


MDC 
CreateCompatibleDC (Schirm); 
SelectObject (MDC,Bitmap); 
BitBlt(MDC,0,0,Breite,Hoehe, 
Schirm,Breite,Hoehe, 
Whiteness); 
END; 


Das Objekt TDruck ist ein Nachkomme von 
TTextDruck und ist ähnlich zu verwenden. 
Schirm ist der Bildschirmkontext. B und H 


OBJECT (TTextDruck) 
INTEGER; 

INTEGER; 

HBitmap; 

HDC; 
PROCEDURE Init 


(Schirm : HDC; 
Sx,Sy,Abstand: INTEGER; 
B,H : INTEGER); 
PROCEDURE Done (Mx,My: REAL); 
PROCEDURE Zeile(Z: STRING); 
PROCEDURE Seitenvorschub; 
END; 


PROCEDURE TDruck.Done; 
BEGIN 
StretchBlt(DC,0,0, 
IntRound (Mx*Breite), 
IntRound (My*Hoehe), 
MDC,0,0,Breite,Hoehe, 
SrcCopy); 
DeleteDC (MDC); 
DeleteObject (Bitmap); 
TTextDruck.Done; 
END; 


PROCEDURE TDruck.Zeile; 

BEGIN 
TextOutString(MDC,StartX,Y,2); 

Inc(Y,Zeilenabstand); 

END; 


PROCEDURE TDruck.Seitenvorschub; 


bestimmen den Bereich, in den gezeichnet werden kann; man wählt sie möglichst klein, 
damit der Programmlauf nicht zu lange dauert. Seitenvorschub hat keine Funktion und 
ersetzt daher den Vorgänger. Gezeichnet wird in den Speicherkontext MDC. 


OO Der nebenstehende Ausdruck, bestehend 
ION aus einer Textzeile, einer Grafik und zwei nn 
weiteren Textzeilen, wird so erhalten: 
VAR 
SDC: HDC; Druck: TDruck; 
BEGIN 


SDC := GetDC (HWindow); 
Druck.Init(SDC,100,10,24,226,400) 
Druck .Zeile('Tastaturen' 
Tastenfeld 

(Druck.MDC ,‚Druck.StartX,Druck.Y,75); 
Inc(Druck.Y,310); 
Druck.Zeile('Bild 1: Telefon'); 
Druck.Zeile(' (veraltet) '); 


Druck.Done(2,2); 
ReleaseDC (SDC ,HWindow) ; 
END; 


Bild 1: Telefon 
(veraltet) 


38 D.5 Bildschirmbereich drucken 


Ausschnitt des Bildschirms zum Drucker zu schicken; die folgende Proze- 


Mit dem vorhergehenden Rezept ist es ganz einfach, einen rechteckigen 
/ = / dur erledigt das: 


PROCEDURE Bildschirmbereich drucken 
(Schirm : HDC; 
Bereich: TRect; 
Mx,My : REAL); 
VAR 
Druck: TDruck; 
BEGIN 


WITH Bereich DO Druck.Init (Schirm, 0,0,0,right-left PROREOMTESDNN 
WITH Bereich DO 
BitBlt(Druck.MDC,0,0,right-left,bottom-top, 
Schirm, left,top,SreCopy); 
Druck.Done (Mx,My); 
END; 


Bereich gibt den Ausschnitt des Bildschirms an, der gedruckt wird. Die Maßstabsfakto- 
ren Mx und My bestimmen die Größe des Drucks. Bei Mx = My = 1 wird der Ausschnitt 
pixelweise gedruckt; mit anderen Werten kann das Druckbild in waagrechter und senk- 
rechter Richtung beliebig gedehnt (> 1) oder gestaucht (< 1) werden. 


Cm Eine typische Anwen- | = SELL Demopro« jramm 


Allgemeines Bitmaps Chaos Drucken Geometrie 


dung ist eine Hardcopy Kurvendiagramme Mensch/T. Präsentation Raum 
des Fensters Dazu muß Ä Schreiben Tiere Umr. Werkzeuge Zwischenablage Info 
man mit GetClientRect | 
den Parameter Bereich gleich dem | 
Client-Bereich des Fensters HWindow | 
setzen. Wenn das aktive Fenster wie 
nebenstehend aussieht, wird mit dem 
folgenden Programm der Client-Be- 
reich (nicht aber Titelleiste, Menü und 
Rolibalken) um den Maßstab 2,5 ver- | 
größert gedruckt: \ 
VAR 
DC: HDC; 
B : TRect; 
BEGIN 
DC := GetDC (HWindow); 
GetClientRect (HWindow,B); 
Bildschirmbereich_ drucken (DC,B,2.5,2.5); 


ReleaseDC (HWindow,DC); 
END; 


Die obige Anwendung druckt nur den Client-Bereich des Fensters. Sie 
können auch andere Teile des Fensters (etwa die Bildlaufleisten oder die 
Titelzeile) drucken, wenn Sie das Rechteck B entsprechend erweitern. 


G GEOMETRISCHE FIGUREN 
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40 G.1 Schräge Gerade 


Um eine Gerade mit Hilfe der Prozedur LineTo zu zeichnen, braucht man 

die Koordinaten des Anfangs- und des Endpunktes. Kennt man anstelle des 

Endpunkts nur die Länge und den Neigungswinkel, so muß man mit 

trigonometrischen Funktionen die Koordinaten des Endpunkts berechnen 
und die Linie zeichnen. Das folgende Programm erledigt diese Arbeit: 


PROCEDURE LineWinkel 
(Kontext: HDC; 
INTEGER; {Startpunkt der Geraden} 
INTEGER; {Länge der Geraden} 
INTEGER) ; {Neigungswinkel der Geraden} 


VerschiebePunktReal (X,Y,L,W,Rx,Ry); {Rezept A.3} 
MoveLine (Kontext,X,Y,IntRound(Rx) ,IntRound(Ry)); {Rezept A.2} 
END; 


Der Winkel W ist in Zehntelgrad von der Waagrechten aus im Gegenuhrzeigersinn 
anzugeben. Als Länge L ist auch ein negativer Wert zulässig; dann wird die Gerade in 
der Gegenrichtung gezeichnet. 


> ——, 

1O1 

Eine typische Anwen- 
dung dieses Rezepts 
ist eine Schar von 
Geraden, die fächer- 
förmig von einem 
einzigen Punkt ausge- 
hen. Beispielsweise 
zeichnen Sie einen 
Gamsbart (oder Ra- 
sierpinsel) wie folgt 
in ein Fenster: 


VAR 
DC: HDC; 
i : INTEGER; 
BEGIN 
DC := GetDC (HWindow); 
’FOR i:=-10 TO 10 DO 
LineWinkel(DC,100,200,300,30%*i); 
Rectangle(DC,100-50,200-30,100+51,200+31); 
ReleaseDC (HWindow,DC); 
END; 


G.2 Schiefes Paralleloegramm 4 


Ein Parallelogramm kann man leicht mit Polygon zeichnen, wenn man 
die Eckpunkte kennt. Bei einem Parallelogramm, das irgendwie schief in 
der Ebene liegt, kennt man eher die Koordinaten einer Ecke, die Seitenlän- 
gen und die Winkel. Daraus hat man dann mühsam die Eckpunkte zu be- 
rechnen und das Parallelogramm zu zeichnen. Diese Arbeit erledigt das folgende Rezept: 
PROCEDURE Parallelogramm 
(Kontext: HDC; 
INTEGER; {Ursprung} 
INTEGER; {Seitenlängen} 


: INTEGER; {Winkel zur Waagrechten in Zehntelgrad} 
: INTEGER); {Winkel im Parallelogramm in Zehntelgrad} 


PROCEDURE Lade 
(var P : TPoint; 
Px,Py: REAL); 


BEGIN 
SetPoint (P,IntRound(Px) ,IntRound(Py)); {Rezepte U.2, A.1} 
END; 


VAR 
Punkte: ARRAY[0..3] OF TPoint; 
Rx,Ry : REAL; 
BEGIN 
Lade (Punkte[0],X,Y); 
VerschiebePunktReal (X,Y,A,alpha,Rx,Ry); 
Lade (Punkte[1],Rx,Ry); 
VerschiebePunktReal (Rx,Ry,B,alphatbeta,Rx,Ry); 
Lade (Punkte[2],Rx,Ry); 
VerschiebePunktReal(X,Y,B,alphatbeta,Rx,Ry); 
Lade (Punkte[3],Rx,Ry); 
Polygon (Kontext ‚Punkte,4); 
END; 


Das Parallelogramm wird mit dem aktiven Stift gezeichnet und mit dem aktiven Pinsel 
ausgefüllt. Die Bedeutung der Parameter ist aus dem Anwendungsbeispiel ersichtlich: 


O— Das nebenstehende Paral- 
ION lelogramm mit den Kenn- 
werten A=250, B= 100, 

a = 30°, ß =50° zeichnet 

man mit folgendem Programm in ein 


Fenster (zur Verdeutlichung sind Ur- 
sprung, Winkel und Seitenlängen einge- 


zeichnet): 
VAR 
DC: HDC; B A 
BEGIN 
DC := GetDC(HWindow); [8 
Parallelogramm(DC, ni 
100,250,250,100,300,500); (X,Y) 


ReleaseDC (HWindow,DC); 
END; 


42 G.3 Schiefes Rechteck 


zurückgeführt werden. Ursprung, Seitenlängen und Winkel ersehen Sie aus 


Ein schiefes Rechteck kann auf ein Parallelogamm (Rezept G.2) 
/ & } dem Bild weiter unten auf dieser Seite. Das Rezept lautet: 


PROCEDURE Rechteck 
(Kontext: HDC; 
®: INTEGER; {Ursprung} 
s INTEGER; {Seitenlängen} 


INTEGER); {Winkel zur Waagrechten in Zehntelgrad} 


Parallelogramm(Kontext,X,Y,A,B,alpha,900); 
END; 


Das Rechteck wird mit dem aktiven Stift gezeichnet und mit dem aktiven Pinsel 
ausgefüllt. 


Oo Das nebenstehende Rechteck mit 

ON dem Winkel «=30° zeichnet 

man mit folgendem Programm in 

ein Fenster; zur Verdeutlichung 

sind wieder Ursprung, Seitenlängen und Win- 
kel eingetragen: 


VAR 
DC: HDC; 
BEGIN 
DC := GetDC (HWindow); 
Rechteck (DC,100,250,250,100,300); 
ReleaseDC (HWindow,DC); 
END; 


G.4 Regelmäßiges Vieleck 43 


Umkreises, die Anzahl der Ecken und einen Startwinkel festgelegt. Mit der 


Ein regelmäßiges Vieleck ist durch den Ursprung und den Radius des 
& folgenden Prozedur können Sie es zeichnen: 


PROCEDURE Vieleck 
(Kontext: HDC; 
xX,Y : INTEGER; {Ursprung} 
R : INTEGER; {Radius des Umkreises} 
alpha : INTEGER; {Startwinkel} 
: BYTE); {Anzahl der Ecken} 


ARRAY[1..255] OF TPoint; 


3600/Ecken; 

W := alpha; 

FOR i:=1 TO Ecken DO BEGIN 
VerschiebePunktReal (X,Y,R,IntRound(W),Px,Py); 
SetPoint (Punkte[i],IntRound(Px),IntRound(Py)); 
W:= W+HdW; 

END; {FOR} 

Polygon (Kontext ‚Punkte ‚Ecken); 

END; 


Das Vieleck wird mit dem aktiven Stift gezeichnet und mit dem aktiven Pinsel ausgefüllt. 


a Das nebenstehende regelmäßige Sie- 
KO beneck mit dem Startwinkel au = 20° 
erhält man wie folgt: 


VAR 
DC: HDC; 

BEGIN 
DC := GetDC (HWindow); 
Vieleck(DC,200,200,100,200,7); 
ReleaseDC (HWindow,DC); 

END; 


Zur Verdeutlichung sind der Umkreis und der 
Startwinkel eingezeichnet. 


Das Ausfüllen mit dem aktiven Pinsel können Sie leicht verhindern, wenn 
Sie das Vieleck mit der Standardfunktion PolyLine zeichnen. Um einen 
geschlossenen Linienzug zu erhalten, müssen Sie den Endpunkt gleich dem 
Anfangspunkt setzen. Dazu ersetzen Sie im Rezept die Zeile 


Polygon (Kontext ‚Punkte,Ecken); 


durch die beiden Befehle 


Punkte[Ecken+t1] := Punkte[1]; 
PolyLine (Kontext ‚Punkte, Eckent1); 


44 G.5 Kreisbogen 


Mit der Standardfunktion Arc kann man einen Kreisbogen zeichnen, wenn 
man neben den Endpunkten auch das Rechteck kennt, in dem der Kreisbo- 
gen liegen soll. Es genügt jedoch, neben den Endpunkten noch den Radius 


des Kreises anzugeben; das folgende Rezept berechnet daraus das 
umschließende Rechteck und zeichnet dann den Kreisbogen: 


PROCEDURE Kreisbogen 
(Kontext : HDC; 
X1,Y1,X2,Y2: LONGINT; {Endpunkte} 
R : LONGINT); {Radius} 
VAR 
Xm,Ym,h2: REAL; 
: INTEGER; 


(x1+X2)/2; Ym := (Yi+Y2)/2; 

Sqr(R) - (Sqr(X1-X2) + Sqr(Y1-Y2))/4; 
IF h2<O THEN Exit; 
h := IntRound (Sqrt(h2)); 


IF Y1=Y2 THEN BEGIN 
IF X1>X2 THEN W := -900 ELSE W := 900 
END 
ELSE 
W := IntRound(ArcTan((X1-X2)/(Y1-Y2))/PiZehntelgrad); 
IF Yı1>Y2 THEN h := -h; 
IF R<O THEN h := -h; 
VerschiebePunktReal (Xm, Ym,h,W,Xm,Ym); 
Arc(Kontext,IntRound (Xm-R) ‚IntRound(Ym-R) ‚IntRound (Xm+R+1), 
IntRound (Ym+R+1),X1,Y1,X2,Y2); 
END; 


Sind die Endpunkte und der Radius vorgegeben, so gibt es im allgemeinen vier Möglich- 
keiten, einen passenden Kreisbogen zu zeichnen. Bei positivem Radius wird ein kurzer 
Kreisbogen gezeichnet, bei negativem Radius ein langer. Der Zeichenvorgang erfolgt 
immer von (X1,Y1) nach (X2,Y2) im Gegenuhrzeigersinn; durch Vertauschen der End- 
punkte wird also der Kreisbogen an der Verbindungsgeraden gespiegelt. 


Der Kreisbogen wird mit dem aktuellen Stift gezeichnet. 


Das nebenste- 


Oz 
ION hende Bild zeigt 
diese vier Mög- 


lichkeiten. Sie | (X2,Y2) (X1,Y1) (x1,Y1) 
werden durch die Befehle N 3 IR ä 
Kreisbogen(DC, KX1ıYı) (x1Yı) (X2,Y2) 


100,200,60,175,50); 
Kreisbogen (DC, 

100,200,60,175,-50); 
Kreisbogen(DC, 

60,175,100,200,50); 
Kreisbogen (DC, 60,175,100,200,-50); 


(im Bild von links nach rechts) erhalten. 


G.6 Kreissektor 45 


schriebene Rechteck und jeweils einen Punkt auf den Verbindungsgeraden 

kennt. Häufig (etwa beim Zeichnen einer Tortengrafik) kennt man jedoch 

den Mittelpunkt, den Radius und zwei Winkel. Das folgende Rezept 
zeichnet mit diesen Angaben einen Kreissektor: 


f Einen Kreissektor kann man leicht mit Pie zeichnen, wenn man das um- 


PROCEDURE Sektor 
(Kontext: HDC; 
: INTEGER; {Ursprung} 
: INTEGER; {Radius} 
: INTEGER; {Winkel zur Waagrechten in Zehntelgrad} 
: INTEGER); {Sektorwinkel} 


X1,Y1,X2,Y2: REAL; 
BEGIN 
VerschiebePunktReal (X,Y,R,alpha,X1,Y1); 
VerschiebePunktReal (X,Y,R,alphatbeta,X2,Y2); 
Pie(Kontext,X-R,Y-R,X+R+1,Y+R+1, 
IntRound(X1),IntRound(Y1),IntRound(X2),IntRound(Y2)); 
END; 


Der Sektor wird mit dem aktuellen Stift gezeichnet und mit dem aktuellen Pinsel ausge- 


füllt. Die Bedeutung der übergebenen Parameter ist aus dem Anwendungsbeispiel er- 
sichtlich: 


Oo Den nebenstehenden Kreissektor mit den 
®) Kennwerten R=200, a =45° und ß = 70° 
zeichnet man mit dem folgenden Programm 

in ein Fenster: 


VAR R 
DC: HDC; 
BEGIN 
DC := GetDC(HWindow); (75 
Sektor (DC,200,250,200,450,700); 
ReleaseDC (HWindow,DC); (&%Y) 
END; 


46 G.7 Kreissegment 


dem man die Endpunkte mit einer Geraden verbindet und das Innere dieser 

Figur mit dem aktuellen Pinsel ausfüllt. Mit der Standardfunktion Chord 

kann man ein Kreissegment zeichnen, wenn man neben den Endpunkten 
auch das Rechteck kennt, in dem das Kreissegment liegen soll. Es genügt jedoch, neben 
den Endpunkten noch den Radius des Kreises anzugeben. Das folgende Rezept berech- 
net daraus das umschließende Rechteck und zeichnet dann ein Kreissegment: 


f Ein Kreissegment entsteht aus einem Kreisbogen (vgl. Rezept G.5), in- 


PROCEDURE Segment 
(Kontext : HDC; 
X1,Y1,X2,Y2: LONGINT; {Endpunkte} 
R : LONGINT); {Radius} 
VAR 
Xm,Ym,h2: REAL; 
h,Ww : INTEGER; 
BEGIN 
xm := (X1+X2)/2; Ym := (Y1+Y2)/2; 
h2 := Sqr(R) - (Sqr(X1-X2) + Sqr(Y1-Y2))/4; 
IF h2<O THEN Exit; 
h := IntRound (Sqrt(h2)); 
IF Y1=Y2 THEN BEGIN 
IF X1>X2 THEN 
W:= -900 
ELSE 
W:= 900 
END 
ELSE 
W := IntRound(ArcTan((X1-X2)/(Y1-Y2))/PiZehntelgrad); {A.1} 
IF Y1>Y2 THEN h := -h; 
IF R<O THEN h := -h; 
VerschiebePunktReal(Xm, Ym h,W,Xm,Ym); {Rezept A.3} 
Chord (Kontext , IntRound (Xm-R) ‚IntRound(Ym-R), 
IntRound (Xm+R+1) ,IntRou: 
END; 


d(Ym+R+1),X1,Y1,X2,Y2); 


Wie beim Kreisbogen gibt es vier verschiedene Möglichkeiten, ein Kreissegment durch 
zwei Punkte zu zeichnen. Die Regeln sind dieselben wie dort. Das Segment wird mit 
dem aktiven Stift gezeichnet und mit dem aktiven Pinsel ausgefüllt. 

| 


O— Das nebenstehen- 
Ol de Bild zeigt die- 
se vier Möglich- 
keiten. Sie wer- 

den durch die Befehle 


Segment (DC, 
100,200,60,175,50); 
Segment (DC, 
100,200,60,175,-50); 
Segment (DC, 
60,175,100,200,50); 
Segment (DC,60,175,100,200,-50); 


(im Bild von links nach rechts) gezeichnet. 


G.8 Schräge Ellipse 47 


/ Mit der Standardprozedur Ellipse lassen sich schöne waagrechte und senk- 
en ' rechte Ellipsen zeichnen. Häufig möchte man jedoch Ellipsen, die schräg 
liegen. Das ist recht aufwendig; das folgende Rezept hilft hier weiter: 


VAR 
EWA,EWB: INTEGER; 
: REAL; 


EWX(T: REAL): REAL; FAR; 


EWA*cos(T)*cos(EWPh) - EWB*sin(T)*sin(EWPh); 


EWY(T: REAL): REAL; FAR; 


EWA*cos(T)*sin(EWPh) + EWB*sin(T)*cos(EWPh); 


PROCEDURE EllipseWinkel 
(Kontext: HDC; 
: INTEGER; {Ursprung} 
®: INTEGER; {Halbachsen} 
: INTEGER); {Winkel zur Waagrechten in Zehntelgrad} 


U: TPoint; D: TRect; C: INTEGER; 
BEGIN 

SetPoint (U,X,Y); 

IF A<B THEN C := B+1 ELSE C 

SetRect (D,X-C,Y-C,X+C,Y+C); 

EWA := A; EWB := B; EWPh := PiZehntelgrad*alpha; 

FunktionsgraphParameter (Kontext,U,D,0,2*Pi,200,1,1,EWX,EWY); 
END; 


Die Ellipse wird mit dem aktuellen Stift gezeichnet; das Innere wird nicht ausgefüllt. 


Die Variablen und die beiden Funktionen sind Bestandteile von 
EllipseWinkel und sollten daher bei einem sauberen Programm lokal inner- 
halb dieser Prozedur liegen. Leider ist der Compiler damit nicht einver- 
standen, da es sich bei EWX und EWY um Prozedurvariable handelt. Sie 
dürfen jedoch im Implementationsteil der betreffenden Unit stehen, so daß sie nach 
außen hin nicht in Erscheinung treten. 


Oo Mit diesem Rezept ist es 
ON einfach, die nebenstehende 
| Ellipse zu zeichnen. Zur 

Verdeutlichung sind zusätz- 
lich die Achsen und der Winkel zur ar 
Waagrechten eingezeichnet: 


EllipsewWinkel 
(DC,150,150,100,50,300); 


DC ist dabei der Bildschirmkontext. L 


48 G.9 Spiralen 


Mit der nebenstehen- |var SpEx: REAL; 


den Prozedur können |runctıon SpPotenz(X: REAL): REAL; FAR; 
Eajea ; BEGIN 

Spiralen gezeichnet | potenz := FEXp(SpEX*FLn(X)) 

werden. U ist der Ko- |enp; 


ordinatenursprung, Dmin und Dmax |procEDURE Spirale 


geben die Nummer der Rotation an, NEEDSeRE Beshk: 
bei der die Zeichnung beginnt bzw. Duin;Dmar : REAL; 

i ; Schritte,B,H : INTEGER; 
endet. Diese können auch negativ Erponent REAL); 
sein; dann wird die Spirale |var 


. S: TRect; Phi: REAL; 
rechtswendig. Immer muß BRCIN 


|Dmax| >|Dmin| gelten. B und H| spEx := Exponent; 

: : Phi := SpPotenz (2*Pi*Dmax); 
bedeuten die halbe Breite bzw. SetRect (S,U.X-B,U.Y-H,U.X+B,U.Y+H); 
Höhe des Rechtecks, in das die FunktionsgraphPolar (Kontext,U,S, 
Spirale gezeichnet wird. Exponent 2E1 Dulu.22EI Dmexs Schritte, 

pP 8 . EXP B/Phi,H/Phi,SpPotenz); {K.3} 


bestimmt die Windungsabstände. Zu [END; 
den Funktionen FLn und FExp vgl. Rezept A.1 (Gleitkommafehler). 


Oo Mit Exponent > 1 erhält man eine Spirale mit 
Ol zunehmenden Abständen. Bei der nebenste- 
henden Spirale wurden das Koordinatenkreuz 
und das umschließende Rechteck dazugezeich- 

net; man erhält sie wie folgt: 


Spirale(DC,U,1.9,6,1000,Breite,Hoehe,3); 


Exponent = 1 ergibt eine Archimedische Spirale (konstante 
Abstände; links unten); bei Dmax < 0 ist sie rechtswendig;: 


Spirale(DC,U,0,-15,2000,200,200,1); 


Die sich verengende Spirale rechts unten erhält man so: Eu 
Spirale(DC,U,-0.5,15,3000,250,180,0.2); 


G.10 Logarithmische Spirale 


Eine logarithmische 
Spirale wird in Polar- 

koordinaten durch die 

Gleichung p= efP be- 
schrieben und kann mit der neben- 
stehenden Prozedur SpiraleLog ge- 
zeichnet werden. Die Parameter ha- 
ben dieselbe Bedeutung wie bei Re- 
zept G.9; ihre Wirkung auf die Ge- 
stalt der Spiralen ist jedoch etwas 
anders. Die Abstände nehmen nach 
außen hin immer zu. Eine links- 
wendige Spirale erhält man für 
Dmin < Dmax und Exponent>0. Je 


VAR SpLogEx: REAL; 


FUNCTION SpLog(X: REAL): REAL; FAR; 
BEGIN SpLog := FExp(SpLogEx*X); END; 


PROCEDURE SpiraleLog 
(Kontext HDC; 
U TPoint; 
Dmin,Dmax REAL; 
Schritte,B,H: INTEGER; 
Exponent ® REAL); 
VAR 
Ss: 
BEGIN 
SpLogEx := Exponent; 
Phi := SpLog(2*Pi*Dmax); 
SetRect (S,U.X-B,U.Y-H,U.X+B,U.Y+H); 
FunktionsgraphPolar 
(Kontext,U,S,2*Pi*Dmin,2*Pi*Dmax, 
Schritte,B/Phi,H/Phi,SpLog); 
END; 


TRect; Phi: REAL; 


größer Exponent ist, desto größer ist die Zunahme der Abstände. Der Hauptteil der 
Spirale konzentriert sich dann im Mittelpunkt, so daß dort keine Auflösung mehr er- 
kennbar ist (Bild links unten). Für kleine Werte von Exponent konzentriert sich der 
Hauptteil der Spirale im Randbereich (Bild rechts unten); für Exponent =0 erhält man 
eine Ellipse. Um eine rechtswendige Spirale zu erhalten, hat man die Vorzeichen von 
Dmin, Dmax und Exponent gleichzeitig umzudrehen (Bild rechts unten). 


Oo Die drei gezeichneten Spiralen (in | 
ON der Reihenfolge rechts, unten 
SL links, unten rechts) erhält man 
durch folgende Aufrufe: 
SpiraleLog 


(DC,U,-3,5,1000,250,180,0.05); 


SpiraleLog 


(DC,U,-3,5,2500,250,180,0.75); 


SpiraleLog 


(DC,U,3,-5,1000,250,180,-0.007); 


Zur Verdeutlichung sind Koordinaten und umschriebenes Rechteck eingezeichnet. 


50 G.11 Begrenzte Spirale 


Eine weitere Sorte von 
Spiralen erhält man, wenn 


man die Funktion 
Su Max - Min 
Pnn ie teen ) 
Max-Min 0-50 40-0 20-10 o 2 0 0 so 6 


zu ihrer Erzeugung verwendet; rechts oben ist ein Graph dieser Funktion zu sehen. 
Rechts unten finden Sie das zugehörige Rezept. Die Spirale liegt ganz in einem durch 
Min und Max begrenzten [var 

Bereich: für den Fall SpTanhMin, SpTanhDelta: REAL; 


‚ , . SpTanhExponent : REAL; 
0<Min<Max sind die 
% . FUNCTION SpTanh(X: REAL): REAL; FAR; 
Größenverhältnisse dem |Bpecın 


i SpTanh := SpTanhMin + 
ne Bild zu entnehmen. SpTanhDelta/ (1+FExp(SpTanhExponent*X)); 
Für Min=0 schrumpft die |enp; 


innere Grenze auf den |procepurE SpiraleTanh 


Ursprung zusammen; nega- | (Kontext Auer 
. wur U TPoint; 
tive Min sind ebenfalls zu- Dmin,Dmax,Min,Max: REAL; 


ässip. Fü in< Schritte,B,H INTEGER; 
lässig ür Dmin Dmax Steigung REAL); 
erhält man eine linkswendi- |var 
ge, für Dmin > Dmax eine BA nase, 
rechtswendige Spirale. Je | SpTanhMin := Min; 
n . Br SpTanhDelta := Max - min; 
größ er Steigung gewählt SpTanhExponent := -4*Steigung/SpTanhDelta; 
wird, desto größer sind die | SetRect(S,U.X-B-2,U.Y-H-2,U.X+B+2,U.Y+H+2); 
. ® : . FunktionsgraphPolar (Kontext,U,S,2*Pi*Dmin, 
Spiralabstände in der Mitte 2*Pi*Dmax,Schritte,B/Max,H/Max,SpTanh); 
des Bereichs. END; 


Oo Bei der nebenstehen- B*(Min/Max) 


®) den Spirale wurden 
das umschriebene 


Rechteck und die Ko- 
ordinatenachsen eingezeichnet. Man 
erhält sie wie folgt: 


VAR 
DC: HDC; 
U : TPoint; 
BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,300,200); 
SpiraleTanh(DC,U,-20,40, 
1,3,5000,250,180,0.02); 
ReleaseDC (HWindow,DC); 
END; 


G.12 Stern 51 


Ein Stern ist im Prinzip ein regelmäßiges Vieleck. Jedoch werden nicht 
benachbarte Punkte miteinander verbunden, sondern weiter auseinander- 
liegende. Der Einfachheit halber verbindet das folgende Rezept jeweils die 
übernächsten Eckpunkte miteinander: 

PROCEDURE Stern 


(Kontext: HDC; 
X,Y,R INTEGER; {Ursprung und Radius des Umkreises} 


alpha : INTEGER; {Startwinkel} 
: BYTE); {Anzahl der Ecken} 


Ecken 


ARRAY[1..256] OF TPoint; 
REAL; 
REAL; 
BYTE; 


PROCEDURE Zeichnen; 
VAR 
i: BYTE; 
BEGIN 
FOR i:=1 TO Ende DO BEGIN 
VerschiebePunktReal (X,Y,R,IntRound(W),Px,Py); 
SetPoint (Punkte[i],IntRound(Px) ,IntRound (Py)); 
W:= W+tdW; 
END; {FOR} 
Punkte[Ende+1] := Punkte[1]; 
Polyline (Kontext ‚Punkte ‚Ende); 
END; 


BEGIN 

dW := 2*3600/Ecken; 

IF Odd(Ecken) THEN BEGIN 
Ende := Ecken; 
W := alpha; 
Zeichnen; 

END 

ELSE BEGIN 
Ende := Ecken DIV 2; 
W := alpha; 
Zeichnen; 
W := alpha+dw/2; 
Zeichnen; 


OO Damit ist es nicht schwer, ein so wichtiges 


O1 Symbol wie den Drudenfuß zu zeichnen. 
Der Startpunkt liegt oben; der Startwinkel 
beträgt daher 90°: 


DC := GetDC (HWindow); 
Stern(DC,200,200,100,900,5); 
ReleaseDC (HWindow,DC); 

END; 


32 G.13 Cassinische Kurve 


VAR 
CassA,CassK,CassV,CassW: REAL; 


FUNCTION Cassinifunktion(X: REAL): REAL; FAR; 


D nstehend: 

= 2 2 ® D := Cos(2*(X-CassW) )*((1-CassV)* 
Rezept Cassini zeichnet Sqr (Cos (CassK* (X-CassW)))+CassV); 
eine geschlossene Kurve. | Cassinifunktion := 


Sqrt (D+Sqrt (Sqr(D)+CassA)); 
Durch entsprechende |Enp; 


Wahl der Parameter kön- |procepurE Cassini 
nen recht bizarre Formen | (Kontext : HDC; 


Ursprung : TPoint; 
erzeugt werden (vgl. etwa Bereich : TRect; 
A ums " A ® REAL; 
die Rezepte 28 Fisch", Versärzüung: REAL: 
T.1l1 "Blume"). Für Keulen : INTEGER; 
- M : REAL; 
Verserrung | oder | Yinkel : INTEGER; 
Keulen=0 erhalten Sie Schritte : INTEGER); 


. Be . . |BEGIN 
eine originale Cassini- | assa Sqr(1#A)-1; 


Kurve. Je kleiner A ist| CassK := Keulen/2; 
. PR CassV := Verzerrung; 

(A<0 ist unzulässig), CassW := PiZehntelgrad*Winkel; 
umso stärker wird die FunktionsgraphPolar (Kontext ‚Ursprung, 

. Bereich, 0,2*Pi,Schritte,M,M 
Einbuchtung. Für A>1 Elesinlfunktiony: Be 
erhalten Sie ein eher LEND; 
langweiliges Oval. Bei 
Keulen > entstehen keulenförmige Ausbuchtungen (ihre Anzahl beträgt Keulen+2), 
deren Größe und Gestalt mit Verzerrung zu beeinflussen ist. M ist der Maßstab des 


Bildes, Winkel verdreht das Bild. Bereich begrenzt das Gebiet, in dem gezeichnet wird. 


O——=] JedesBildindr | wma | wo |] 
Kl TA 
ION nebenstehenden m—t 2 [VIK DALVIK| 
Tabelle wird wie 
folgt gezeichnet: 
VAR 
DC: HDC; 
U : TPoint; 
B : TRect; 
BEGIN 


DC := GetDC (HWindow); 
SetRect 
(B,0,0,640,400); 
SetPoint(U,300,100) 
Cassini(DC,U,B,A,V, 
150,W,500); 
ReleaseDC 


END: (BWindow,DC}; Originale Cassini-Kurven sind fett umrahmt. 
4 


’ 
K, 


K KURVENDIAGRAMME 


54 K.1 Funktionsgraph in Parameterdarstellung 


In der Mathematik und den Naturwissenschaften will man häufig Funkti- 

onsgraphen zeichnen. Oft ist die zu zeichnende Funktion in einer Parame- 

terdarstellung x = ft), y= g(f) gegeben, wobei der Parameter ? in einem 

bestimmten Bereich variiert. Das folgende Rezept zeichnet eine solche 
Funktion: 


PROCEDURE FunktionsgraphParameter 


(Kontext : HDC; 

U : TPoint; {Koordinatenursprung} 

B : TRect; {Bildschirmbereich, in dem gezeichnet wird} 
Tmin,Tmax: REAL; {Bereich, in dem der Parameter variiert} 
Schritte : INTEGER; {Anzahl der zu zeichnenden Punkte} 

Mx,My : REAL; {Maßstäbe} 

f,g : Funktionstyp); {Zu zeichnende Funktion} 


PROCEDURE Lade 
( T: REAL; 
VAR P: TPoint); 
BEGIN 
SetPoint(P,U.X + IntRound(f(T)*Mx),U.Y - IntRound(g(T)*My)); 
END; 


VAR 
alt: TPoint; 
neu: TPoint; 


S : INTEGER; 
T : REAL; 
dt : REAL; 
BEGIN 
dt := (Tmax-Tmin)/Schritte; 
T := Tmin; 


Lade(T,neu); 
FOR S:=0 TO Schritte DO BEGIN 

alt := neu; 

Lade(T,neu); 

IF (PtInRect(B,alt) AND PtInRect(B,neu)) THEN BEGIN 
MoveTo (Kontext ,alt.X,alt.Y); 
LineTo(Kontext,neu.X,neu.Y); 

END; {IF} 

T:=T+dT; 

END; {FOR} 
END; 


Das Rezept benötigt den Funktionstyp: 


TYPE 
Funktionstyp = FUNCTION(X: REAL): REAL; 


Die Maßstäbe Mx, My erfordern eine genauere Erklärung. Der Zahlenwert 1 wird durch 
Mx Pixel in X-Richtung bzw. durch My Pixel in Y-Richtung dargestellt. Ein größerer 
Maßstab zieht also die Kurve in der betreffenden Richtung weiter auseinander. 


EEE 


Standardfunktionen von TURBO-PASCAL können nicht direkt in 
BRIAN FunktionsgraphParameter angegeben werden. Für den Sinus verwende 
man etwa 


FUNCTION Sinus(X: REAL): REAL; 
BEGIN 


Sinus := System.Sin(X); 
END; 


und entsprechend für den Cosinus: 


FUNCTION Cosinus(X: REAL): REAL; 
BEGIN 


Cosinus := System.Cos(X); 
END; 


Ein Kreis mit dem Radius 1 


Om 
ON kann in der Parameterform 
x=cost, y=sint darge- 


stellt werden; der Parame- 
ter t läuft dabei von 0 bis 2r. Das Pro- 


grammstück 


DC: HDC; 
U : TPoint; 
B : TRect; 
BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,100,100); 
SetRect (B,0,0,200,200); 
FunktionsgraphParameter (DC,U,B,0,2*Pi,200,90,45,Cosinus,Sinus); 
ReleaseDC (HWindow,DC); 
END; 


zeichnet einen solchen Kreis. Auf dem Bildschirm ist er zu einer Ellipse verzerrt; die 
waagrechte Halbachse ist 90, die senkrechte 45 Pixel groß. 


Oz 


IOI 


Die obige Kurve hat die Parameterform x=90 Int, y=45sint, ist also eine 
"Jogarithmisch verzerrte" Sinus-Kurve. Man erhält sie mit 
SetPoint(U,300,300); 


SetRect (B,0,0,800,600); 
FunktionsgraphParameter (DC,U,B,0,9*Pi,200,90,45,Fln,Sinus); 


56 K.2 Funktionsgraph in Standarddarstellung 


Die häufigste Art, eine mathematische Funktion darzustellen, ist die Form 
y=fx). Das Zeichnen des zugehörigen Graphen kann leicht auf das 
Rezept FunktionsgraphParameter zurückgeführt werden: 


PROCEDURE Funktionsgraph 
(Kontext: HDC; 
TPoint; {Koordinatenursprung} 
TRect; {Bereich, in dem gezeichnet wird} 
REAL; {Maßstäbe} 
Funktionstyp); {Zu zeichnende Funktion} 


BEGIN 
FunktionsgraphParameter (Kontext,U,B, (B.left-U.X) /Mx, 


(B.right-U.x) /Mx,B.right-B.left,Mx,My,Identitaet,f); 
END; 


FUNCTION Identitaet (X: 
BEGIN 

Identitaet 
END; 


O=—— Die Funktion 


ON fo)=1x sei 
durch 


FUNCTION DivX 
(X: REAL): REAL; 
BEGIN 
IF X=0 THEN 
DivX := 1.0E10 
ELSE 
DivX := 1/X; 
END; 


gegeben; das Programm 


VAR 
DC: HDC; 
U : TPoint; 
B : TRect; 
BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,200,200); 
SetRect (B,100,50,500,350) 
Funktionsgraph (DC,U,B,30,30,DivX); 
ReleaseDC (Hwindow,DC); 
END; 


zeichnet diese Funktion. Zur Verdeutlichung sind in der Abbildung zusätzlich die 
Koordinatenachsen eingezeichnet. 


AN Zum Funktionstyp und zur Übergabe von TURBO-PASCAL-Standardfunk- 
tionen vgl. Rezept K.1. 


K.3 Funktionsgraph in Polarkoordinaten 57 


also in der Form p=flp). Dabei ist @ der Winkel zur Waagrechten (im 

Gegenuhrzeigersinn gemessen) und p der Abstand des Punktes vom Ko- 

ordinatenursprung. Die kartesischen Koordinaten ergeben sich gemäß den 
Formeln x=/{g) cos @, y=flp) sin @, so daß der zugehörige Graph mit dem Rezept 
FunktionsgraphParameter gezeichnet werden kann. o dient dabei als Parameter: 


f Mathematische Funktionen sind häufig in Polarkoordinaten vorgegeben, 


VAR 
FP: Funktionstyp; 


FUNCTION FPc (X: REAL): REAL; FAR; 
BEGIN 

FPc := FP(X)*Cos(X); 
END; 


FUNCTION FPs (X: REAL): REAL 
BEGIN 

FPs := FP(X)*Sin(X); 
END; 


PROCEDURE FunktionsgraphPolar 


(Kontext ®: HDC; 

U : TPoint; 

B : TRect; 
PhiMin,PhiMax: REAL; 

Schritte : INTEGER; 
Mx,My : REAL; 

£ : Funktionstyp); 


BEGIN 
FP := f; 
FunktionsgraphParameter 
(Kontext ,U,B,PhiMin,PhiMax,Schritte,Mx,My,FPc,FPs); 


END; 


Die Variable und die beiden Funktionen sind Bestandteile von 
BRIAN FunktionsgraphPolar und sollten daher bei einem sauberen Programm 

lokal innerhalb dieser Prozedur liegen. Leider ist der Compiler damit nicht 

einverstanden, da es sich bei den Funktionen um Prozedurvariable handelt. 
Sie dürfen jedoch im Implementationsteil der betreffenden Unit stehen, so daß sie nach 
außen hin nicht in Erscheinung treten. 


oO Die Darstellung einer Funktion durch 


N®) Polarkoordinaten ist vor allen für spira- 
lige Formen angemessen. Die nebenste- 
hende hyperbolische Spirale wird 
durch # = 1/@ beschrieben; man erhält sie wie folgt: 
SetPoint(U,110,300); 


SetRect(B,0,0,640,400); 
FunktionsgraphPolar(DC,U,B,0,10*Pi,1000,300,300,DivX); 


Hier ist DC der Bildschirmkontext, U der Ursprung und B das Rechteck, in das 
gezeichnet wird. DivX berechnet die Funktion 1/X; sie ist bei Rezept K.2 beschrieben. 


Wenn eine Funktion als 
Wertetabelle gegeben ist, 
kann sie mit dem neben- 
stehenden Rezept ge- 
zeichnet werden. U, Mx 
und My haben dieselbe 
Bedeutung wie in den 
vorhergehenden Rezep- 
ten. f ist ein Vektor 
(Rezept A.7); seine Kom- 
ponenten sind Records 
vom Typ TRealPoint 
(Rezept U.1), welche die 


K.4 Funktionsgraph aus Tabelle 


PROCEDURE FunktionsgraphTabelle 
(Kontext: HDC; 


U TPoint; {Koordinatenursprung} 
Mx,My 
£ 


REAL; {Maßstäbe} 
PSkalarColl); {Funktion} 


PROCEDURE 
VAR 
Q: PRealPoint; 
BEGIN 
Q := £°.TGet(X); 
SetPoint(P,U.X + IntRound (0° .Wx*Mx), 
U.Y - IntRound (9° .Wy*My)); 


Lade(X: INTEGER; VAR P: TPoint); 


alt,neu: TPoint; 
X,i : INTEGER; 
BEGIN 
Lade(0,neu); 
FOR i:=1 TO f”.Count-1 DO BEGIN 
alt := neu; Lade(i,neu); 
MoveLine (Kontext ,alt.X,alt.Y,neu.X,neu.Y); 
END; {FOR} 
END; 


einzelnen Wertepaare (Wx, Wy) der anzuzeigenden Funktion enthalten. Es wird vorausge- 
setzt, daß die Wertepaare nach aufsteigenden Wx-Werten geordnet sind; sie müssen 
jedoch nicht denselben Abstand voneinander haben. 


oO Das neben- 
ON stehende Bild er 
— (ohne Koordi- 


naten und Be- 


schriftung) wurde mit fol- 
gendem Programm erzeugt; 
die Tabelle enthält die ge- 
zeichneten Werte: 


x+ 


< 
ei 
Q 


HDC; 
PSkalarColl; 
TRealPoint; 
TPoint; 
REAL; 

BYTE; 


=) = 


QOH 


GetDC (HWindow); SetPoint(U,100,200); 
New(PSkalarColl,Init(6,Sizeof(TRealPoint))); 
i:=0 TO 6 DO BEGIN 

X := 0.3*%Sqr(i+1)-4*0.3; 
SetRealPoint (WP,X,sin(X)); 
W°.TSet (i,@WP); 
END; {FOR} 
FunktionsgraphTabelle(DC,U,30,100,W); 
Dispose (W,Done); ReleaseDC (HWindow,DC); 
END; 


[e:) 
[52] 
MSOUMH-Xxca 


{e) 
Se 


M MENSCH UND TECHNIK 


Die beiden Pro- 
zeduren auf die- 
ser Seite zeich- 


nen Männchen 
und Weibchen. 
Die Abmessun- 
gen eines Männ- 
chens können 
der obigen Ab- 


PROCEDURE MaennchenM 
(Kontext: HDC; 
U : TPoint; 

: INTEGER); 


INTEGER; 


R := H DIV 10; 

Rectangle (Kontext,U.X-R,U.Y-4*R,U.X+R+1,U.Y+1); 

Rectangle (Kontext, ,U.X-2*R,U.Y-8*R,U.X+2*R,U.Y-4*R); 

Ellipse (Kontext ,U.X-R,U.Y-10*R,U.X+R+1,U.Y-8*R+1); 
END; 


PROCEDURE MaennchenW 
(Kontext: HDC; 
: TPoint; 
: INTEGER); 
INTEGER; 
ARRAY[0..2] OF TPoint; 


R := H DIV 10; 

SetPoint (Punkte[0],U.X+2*R,U.Y 
SetPoint (Punkte[1],U.X-2*R,U.Y 
SetPoint (Punkte[2],U.X,U.Y-6*R 
Polygon (Kontext ‚Punkte, 3); 
Rectangle (Kontext ,U.X-2*R,U.Y-8*R,U.X+2*R,U.Y-4*R); 
Ellipse (Kontext,U.X-R,U.Y-10*R,U.X+R+1,U.Y-8*R+1); 

END; 


); 
); 
)i 


bildung entnommen werden; die Abmessungen der Weibchen sind analog. 


Das 
hende Bild (oben 
mit MaennchenM, 


nebenste- 


unten mit 
MaennchenW ge- 
zeichnet) zeigt 
einige Anwen- 
dungsmöglichkei- 

ten. Je nach aktu- 


u u 5 zu: 
Hhasesse i 
Eure ww 


ellem Stift und Pinsel ergeben sich unterschiedliche Erscheinungsbilder. Männchen mit 
weißem Stift und schwarzem Pinsel (a) eignen sich zum Überlagern, etwa für die an- 
schauliche Darstellung einer Bevölkerungsstatistik, wohingegen solche mit schwarzem 
Stift und schwarzem Pinsel (b) besser einzeln stehen. Mit schwarzem Stift und weißem 
Pinsel erhält man Gestalten wie unter c. 


M.2 Schilder 61 


Ein Verbotsschild be- 
steht aus einem roten 


PROCEDURE Verbotsschild 
(Kontext: HDC; 


ö ; U : TPoint; 
Kreis auf weißem R : INTEGER; 
. Farb : TColorRef); 
Grund; es kann mit ne- |yar SEOERSEh 


®: INTEGER; 


benstehender Prozedur leicht ge-| i 
S,S_alt: HPen; 
G 


zeichnet werden. Mit der zweiten 
Prozedur auf dieser Seite erhalten Sie 
ein Warnschild. In beiden Fällen 
können Sie die Farbe der Umrandung 
vorgeben. Die Größenverhältnisse 
sind dem folgenden Bild zu entneh- 
men; der Ursprung U liegt jeweils im 


Kreuzungspunkt: PROCEDURE Warnschild 
(Kontext: HDC; 
U : TPoint; 


= CreatePen(ps_Solid,2,Farbe); 

_ alt := SelectObject (Kontext ,S); 
FOR i:=R DOWNTO IntRound(0.75*R) DO 

Ellipse (Kontext, 
U.X-1,U.Y-i,U.X+i+1,U.Y+i+t1); 

SelectObject (Kontext,S_alt); 
Deleteobject (S); 

END; 


R INTEGER; 
Farbe TColorRef); 
VAR 


i : INTEGER; 
S,S_alt: HPen; 


BEGIN 
S := CreatePen(ps_Solid,1,Farbe); 
S_alt := SelectObject (Kontext,S); 
Beide Rezepte füllen das Innere der | FOR i:=R DOWNTO IntRound(0.67*R) DO 
. . n u ge Vieleck (Kontext ,U.X,U.Y,i,900,3); 
Figur mit dem aktuellen Pinsel; die SelectObject (Kontext,S_alt); 
erforderlichen Symbole dürfen daher | Deleteobject(S); 


i : END; 
erst nachher eingezeichnet werden. - 


O— Die beiden nachstehenden Schilder ("Kein Zutritt für Ungeziefer" und 
ION "Achtung Spinne!") 
wurden so gezeich- 


net: 

CONST 

K =10; R = 150; 

R1 = 10; R2 = 12; 
VAR 

DC: HDC; 

U: TPoint; 
BEGIN 


DC := GetDC (HWindow); 

SetPoint(U,200,250); 

Verbotsschild 
(DC,U,10*K,fb_rot); 

Kaefer(DC,U.X,U.Y+K,3*K,3*K); 

SetPoint(U,450,300); 

Warnschild(DC,U,R,fb_rot); 

MoveLine(DC,U.X,U.Y-IntRound(0.6*R),U.X,U.Y-4*Rl); 

Spinne(DC,U,R1,R2,-900); 

ReleaseDC (HWindow,DC); 

END; 


62 M.3 Yin-Yang-Symbol 


Das Yin-Yang-Symbol ist trotz seines einfachen Aufbaus ziemlich kom- 
pliziert zu zeichnen. Im folgenden Rezept ist U der Mittelpunkt des Sym- 
bols und R sein Außenradius. Mit der Farbe F/ werden die äußere Umran- 


dung gezogen und die linke Seite ausgefüllt, Fr bestimmt die Farbe der 
rechten Seite: 


PROCEDURE Yin 
(Kontext: HDC; 
: TPoint; 
: INTEGER; 
: TColorRef); 


S,S_alt : HPen; 
Bl,Br,B_alt: HBrush; 
BEGIN 
S := CreatePen(ps_Solid,1,Fl); 
Bl := CreateSolidBrush (Fl); 
Br := CreateSolidBrush (Fr); 
S_alt := SelectObject (Kontext,S); 
B alt := SelectObject (Kontext,Br); 
Ellipse (Kontext ,U.X-R,U.Y-R,U.X+R+1,U.Y+R+1); 
Kreisbogen (Kontext ,U.X,U.Y,U.X,U.Y-R,R DIV 2+1); 
Kreisbogen (Kontext,U.X,U.Y,U.X,U.Y+R,R DIV 2+1); 
Ellipse (Kontext, 

U.X-R DIV 10,U.Y-3*R DIV 5,U.X+R DIV 10+1,U.Y-2*R DIV 5+1); 
SelectObject (Kontext ,Bl); 

Ellipse (Kontext, 

U.X-R DIV 10,U.Y+2*R DIV 5,U.X+R DIV 10+1,U.Y+3*R DIV 5+1); 
FloodFill(Kontext,U.X,U.Y-R DIV 5,Fl); 
SelectObject (Kontext,S_alt); 

SelectObject (Kontext,B_alt); 
DeleteObject (S); 
DeleteObject (Bl); 
DeleteObject (Br); 

END; 


OO Das nebenstehende 

ON Symbol mit dem Radius 

180 Pixel wurde in den 
Bildschirmpunkt 

(200,200) gesetzt, so daß vom linken 


und von oberen Rand jeweils 20 
Pixel Abstand bleiben: 


VAR 
DC: HDC; 
U : TPoint; 
BEGIN 
DC := GetDC(HWindow); 
SetPoint(U,200,200); 
Yin(DC,U,180, 
fb_schwarz,fb_weiss); 
ReleaseDC (HWindow,DC); 
END; 


.4 Säule 63 


Jonische Säulen zeichnen sich durch schnecken- 

förmig gewundene Kapitelle aus. Mit dem nachfol- 

genden Rezept können Sie eine solche Säule zeich- 

nen. Das nebenstehende Bild zeigt den Ursprung U, 
die Höhe MH und die Breite B der Säule. Die gesamte Höhe ein- 
schließlich des Kapitells beträgt B+F,; diese Information benötigt 
man, wenn man oberhalb der Säule weitere Elemente zeichnen 
möchte (vgl. das Anwendungsbeispiel). Die gesamte Breite des 
Kapitells (und damit die größte waagrechte Ausdehnung der ge- 
samten Säule) beträgt knapp 2,2B. 


PROCEDURE Saeule 
(Kontext: HDC; 
TPoint; 
INTEGER; 
INTEGER); 


SHORTINT; 
TPoint; 
INTEGER; 


B DIV 2; 


3*B DIV 5; 


FOR i:=-2 TO 2 DO 
MoveLine (Kontext ,U.X+i*(B DIV 4),U.Y,U.X+i*(B DIV 4),hl); 

SetPoint (S,U.X+d5,h1-d4); 
SpiraleLog (Kontext,S,-0.75,1.25,3*B,d4,d4,0.15); 
SetPoint(T,U.X-d5,S.Y); 
SpiraleLog(Kontext,T,0.25,-1.75,3*B,d4,d4,-0.15); 
MoveLine (Kontext,S.X,h1-2*d4,T.X-1,h1-2*d4); 

END; 


Oo Die nebenstehende Tem- 

N®) pelruine wird mit dem 
folgenden Programm ge- 
zeichnet: 


VAR 
DC: HDC; 
U : TPoint; 

BEGIN 
DC := GetDC (HWindow); 
SetPoint (U,200,300); 
Saeule(DC,U,45,200); 
SetPoint(U,350,300); 
Saeule(DC,U,45,200); 
SetPoint(U,500,300); | ] 
Saeule(DC,U,45,200); 
Rectangle (DC,202,5,348,55); 
Rectangle (DC,352,5,498,55); 
Rectangle (DC,150,300,550,330); 
ReleaseDC (HWindow,DC); 

END; 


64 M.5 Zahnrad 


Einfache, aber wichtige technische Bausteine sind Zahnräder. Ihre An- 

wendung ist aber bei weitem nicht auf die Technik beschränkt; der Ein- 

satzbereich "entarteter" Varianten reicht von Sonnen über Rädertierchen 

(Rezept T.1) und Schlangensterne bis zu den Speichen eines Spinnen- 
netzes (Rezept T.5). Dieses universelle Rezept lautet: 


PROCEDURE Zahnrad 
(Kontext: HDC; 

INTEGER; {Mittelpunkt} 
INTEGER; {Radius des Lochs} 
INTEGER; {Radius des inneren Kreises} 
INTEGER; {Radius des Umkreises} 
INTEGER; {Startwinkel in Zehntelgrad} 
BYTE); {Anzahl der Zähne} 


ARRAY[0..3] OF TPoint; 
REAL; 


PROCEDURE Lade(R: INTEGER; p: BYTE); 

VAR 
Ax,Ay: REAL; 

BEGIN 
VerschiebePunktReal_(X,Y,R,IntRound (W+p*dW) ,Ax,Ay); 
SetPoint (Punkte[p],IntRound(Ax),IntRound(Ay)); 


Ellipse (Kontext, X-Rm, Y-Rm, X+Rm+1,Y+Rm+1); 

dW := 1200/Zaehne; 

W := alpha; 

FOR i:=1 TO Zaehne DO BEGIN 
Lade(Ra,0); 
Lade(Ri,l); 
Lade(Ri,2); 
Lade(Ra,3); 
PolyLine (Kontext ‚Punkte,4); 
W:=W + 3*dW; 

END; {FOR} 

END; 


Naheliegende Anwendungen die- 
Ol ses Rezepts sind Getriebe, das 
sind Ansammlungen von Zahnrä- 
dern. Das nebenstehende Beispiel 


wurde mit folgendem Programm gezeichnet: 


VAR 
DC: HDC; 

BEGIN 
DC := GetDC (HWindow); 
Zahnrad(DC,200,100,10,80,90,0,34); 
Zahnrad(DC,325,145,5,40,50,40,17); 
ReleaseDC (HWindow,DC); 

END; 


"O6 


Im obigen Bild sehen Sie verschiedene Ansichten der Sonne. Den Normalzustand (links) 
erhalten Sie, wenn Sie den Lochradius gleich 0 wählen: 


VAR 
DC: HDC; 

BEGIN 
DC := GetDC (HWindow); 
Zahnrad(DC,100,300,0,50,60,0,37); 
ReleaseDC (HWindow,DC); 

END; 


Für eine totale Sonnenfinsternis (Mitte) setzen Sie den Lochradius gleich dem Innenra- 
dius und füllen das Loch schwarz aus: 


VAR 
DC : HDC; 
B_alt: HBrush; 
BEGIN 


DC := GetDC (HWindow); 
B_alt := SelectObject (DC,GetStockObject (Black_Brush)); 
Zahnrad(DC,300,300,50,50,60,0,37); 
SelectObject (DC,B_ alt); 
ReleaseDC (HWindow,DC); 
END; 
Wenn Sie den Lochradius kleiner als den Innenradius wählen und das Loch ebenfalls 
ausfüllen, ergibt sich eine ringförmige Sonnenfinsternis (rechts): 


Zahnrad (DC,500,300,40,50,60,0,37); 


Ein Schlangenstern (ein Verwandter 
des Seesterns von Rezept T.3) ist ein 
fünfzähniges Zahnrad mit Lochra- 
dius 0, bei dem das Verhältnis von In- 
zu Umkreis geeignet gewählt wurde. Sie erhalten 
ihn mit folgendem Rezept: 


PROCEDURE Schlangenstern 
(Kontext: HDC; 


X,Y : INTEGER; {Mittelpunkt} 

R : INTEGER; {äußerer Radius} 

W : INTEGER); {Startwinkel} 
BEGIN 


Zahnrad (Kontext,X,Y,0,R DIV 5,R,W,5); 
END; 


.6 Uhr 


Das folgende Rezept zeichnet eine Uhr. U ist der Mittel- 
punkt, R der Radius des Zifferblatts. Das Zifferblatt und 
die Zeiger (letztere entsprechend den Angaben Stunde 
und Minute) erscheinen in Farbe. Die Strichstärke des 
Minutenzeigers beträgt 2, die des Stundenzeigers 6 Einheiten. 


PROCEDURE Uhr 
(Kontext: HDC; 
U : TPoint; 
R : INTEGER; 
Stunde : BYTE; 
Minute : BYTE; 
Farbe : TColorRef); 
VAR 
S,SS,SM,S_alt: HPen; 
R1,M : INTEGER; 
BEGIN 
S := CreatePen(ps_Solid,1,Farbe); 
SS := CreatePen(ps_Solid,6,Farbe); 
SM := CreatePen(ps_ Solid,2,Farbe); 
S_alt := SelectObject (Kontext,S); 
Ellipse (Kontext ,U.X-R,U.Y-R,U.X+R+1,U.Y+R+1); 
zahnrad (Kontext,U.X,U.Y,0,0,R,0,12); 
SelectObject (Kontext ‚GetStockObject (Null_Pen)); 
R1l := 3*R DIV 4; 
Ellipse (Kontext ,U.X-R1,U.Y-R1,U.X+R1+1,U.Y+Ri1+t1); 
SelectObject (Kontext ,SS); 
M := Minute MOD 60; 
LineWinkel 
(Kontext,U.X,U.Y,R DIV 2,900-300*(Stunde MOD 12)-10*(M DIV 2)); 
SelectObject (Kontext,SM); 
LineWinkel (Kontext,U.X,U.Y,2*R DIV 3,900-60*M); 
SelectObject (Kontext,S_alt); 
DeleteObject (S); 
DeleteObject (SS); 
DeleteObject (SM); 
END; 


Oo Die obige Uhr wird mit der Befehlsfolge 
SetPoint(U,350,200); 
Uhr (DC,U,80,1,48,fb_schwarz); 


gezeichnet; dabei ist DC der Bildschirmkontext. 


PROCEDURE TFenster.Zeitanzeige(VAR Msg: TMessage); 


HDC; 
TPoint; 
WORD; 


BEGIN 
Ist TFenster Ihr | ce := Getpc(HWindow); 


Anwendungsfenster, SetPoint(U,150,200); 

. ß ; GetTime(H,M,S,T); Uhr(DC,U,100,H,M,£fb_rot); 
so können Sie mit ReleaseDC (HWindow,DC); 
der nebenstehenden |END; 


Methode die aktuelle Zeit anzeigen. 


M.7 Rakete 67 


Raketen, die in allen möglichen Richtungen 

herumfliegen, sind nützliche Lückenfüller in 

jeder Grafik. Rechts sehen Sie Gestalt und 

Abmessungen einer Rakete mit W=0, die 
Sie mit folgendem Rezept zeichnen können: 


PROCEDURE Rakete 
(Kontext: HDC; 
U : TPoint; 
B,H : INTEGER; 
W : INTEGER); {Drehwinkel zur Waagrechten in Zehntelgrad} 
VAR 
P: ARRAY[0..2] OF TPoint; 
S: TPoint; i: SHORTINT; 
BEGIN 
VerschiebePunktInteger (U.X,U.Y,B,W-900,P[0].X,P[0].Y); 
VerschiebePunktInteger (U.X,U.Y,-B,W-900,P[1].X,P[1].Y); 
VerschiebePunktInteger (U.X,U.Y,2*B,W,P[2].X,P[2].Y); 
Polygon (Kontext ,P,3); 
FOR i:=-2 TO 2 DO BEGIN 
VerschiebePunktInteger (P[2].X,P[2].Y, 
-5%*B DIV 2,W+450%1,8.X,S.Y); 
LineWinkel (Kontext,S.X,S.Y,-B,W+50%i); 
END; {FOR} 
VerschiebePunktInteger (U.X,U.Y,B DIV 2,W-900,P[0].X,P[0]-Y); 
VerschiebePunktInteger (U.X,U.Y,-B DIV 2,W-900,P[1].X,P[1].Y); 
Rechteck (Kontext ,P[0].X,P[0].Y,H,B,W); 
VerschiebePunktInteger (P[0].X,P[0].Y,H,W,P[0]1.X,P[0].Y); 
VerschiebePunktInteger (P[1].X,P[1].Y,H,W,P[1].X,P[1].Y); 
VerschiebePunktInteger (U.X,U.Y,H+B,W,P[2].X,P[2].Y); 
Polygon (Kontext,P,3); 
D; 


[4 


{A.3} 


OO Für das untenstehende "Rendezvous im Weltall" wurden die Abmessungen 


N®) und Winkel der sechs Raketen in ARRAYs gespeichert, um sie mit einer 
FOR-Schleife zeichnen zu können: 


CONST 
d= 10; Anzahl = 6; sx = 300; sy = 200; 
W: ARRAY[1..Anzahl] OF INTEGER = (100,700,1300,1800,2500,3100); 
B: ARRAY[1..Anzahl] OF INTEGER = (30,30,40,30,30,10); 
H: ARRAY[1..Anzahl] OF INTEGER = (150,50,50,130,50,60); 
VAR 
DC: HDC; 
U : TPoint; 
i : BYTE; 
BEGIN 
DC := GetDC (HWindow); 
Zahnrad(DC,sx,sy,0,4*d,5*d,0,37); 
FOR i:=1 TO Anzahl DO BEGIN 
VerschiebePunktInteger (sx,sy, 
8*d+H[i]+B[i],W[i1],U.X,U.Y); 
Rakete 
(DC,U,B[i],B[i],1800+W[i]); 
END; {FOR} 
ReleaseDC (HWindow,DC); 
END; 


68 M.8 Glühbirne 


Einfache, aber wichtige technische Einrichtungen, die zu 
Beleuchtungs- und Signalzwecken dienen, sind Glühbir- 
nen. Nebenstehend sehen Sie eine "klassische" Form, die 
Sie mit der folgenden Prozedur zeichnen können. U ist 
der Mittelpunkt, R der Radius des Kolbens. Das Bild wurde mit W=0 | 
gezeichnet; andere Werte von W ergeben eine Drehung um U. 


25R 


PROCEDURE Birne 
(Kontext: HDC; 
: TPoint; 
: INTEGER; 
: INTEGER); {Drehwinkel in Zehntelgrad} 


VAR 
A: INTEGER; 
P: ARRAY[0..6] OF TPoint; 
BEGIN 
A := 300; 
VerschiebePunktInteger (U.X,U. 
VerschiebePunktInteger (U.X,U. 
VerschiebePunktInteger (P[0].X 
VerschiebePunktInteger (P[6].X -Y,R,W+900-A,P[5] 
VerschiebePunktInteger (P[1].X, -Y,R,W+900,P[2].X, 
VerschiebePunktInteger (P[5].X,P[5]-Y,R,W+900,P[4].X,P 
VerschiebePunktInteger (U.X,U.Y,5*R DIV 2,W+900,P[3].X 
PolyLine (Kontext,P,7); 
Kreisbogen (Kontext, P[6].X,P[6].Y,P[0].X,P[0]-.Y,-R); 
END; 


‚W+A,P[0].X,P[0].Y); 
1800-A,P[6].X,P[6 
-Y,R,W+900+A,P[1]. 
x R 


Y,R 
Y,R,W ] 
‚PLO] X 
ıP[6] x 
P[1] pP 


Oo Die nebenstehende leuchtende 


ION Glühbirne (Drehwinkel 120°) wird 


wie folgt erhalten: 
VAR 
DC  : HDC; 
U : TPoint; 
i ®: SHORTINT; 
Sx,Sy: INTEGER; 
BEGIN 


DC := GetDC (HWindow); 

SetPoint(U,400,200); 

Birne(DC,U,60,1200); 

FOR i:=1 TO 8 DO BEGIN 
VerschiebePunktInteger 

(U.X,U.Y,100,1650-i1*300,Sx,Sy); 

LineWinkel (DC,Sx,Sy,50,1650-i1*300); 

END; {FOR} 

ReleaseDC (HWindow,DC); 

END; 


Um den Glaskolben von der Fassung zu trennen, 
Pe setzen Sie als letzten Befehl in Birne zusätzlich 
I die folgende Zeile ein: 


MoveLine (Kontext,P[5].X,P[51-YX,P[1]-.%,P[1].Y); 


M.9 Tastenfeld 69 


Tastenfelder dienen zur Dateneingabe. Das folgende Rezept zeichnet das 
Tastenfeld eines Telefons älterer Bauart; das Prinzip kann aber leicht auf 
ähnliche Tastaturen übertragen werden: 


PROCEDURE Tastenfeld 
(Kontext: HDC; 


X,Y : INTEGER; {Ursprung, links oben} 
B : INTEGER); {Seitenlänge einer Taste} 


PROCEDURE Taste(Ux,Uy: INTEGER; 2: PChar); 
VAR 
Bereich: TRect; 
BEGIN 
SetRect (Bereich, Ux,Uy,Ux+B+1,Uy+B+1); 
Rahmen (Kontext ‚Bereich, 0,100,''); 
SetRect (Bereich,Ux+B DIV 5,Uy+B DIV 5, 
Ux+4*B DIV 5,Uy+4*B DIV 5); 
Rahmen (Kontext ‚Bereich, 2,5,2); 
END; 


PROCEDURE Reihe(H: INTEGER; 21,22,23: PChar); 
BEGIN 

Taste (X,H,21); 

Taste (X+B,H,22); 

Taste (X+2*B,H,23); 
END; 


VAR 
F,F_alt: HFont; 

BEGIN 

:= Create _Schrift(3*B DIV 5,ff_Normal); 

F_alt := SelectObject (Kontext, F); 
Reihe(Y,'1','2','3'); 
Reihe (Y+B,'4','5', 
Reihe(Y+2*B,'7','8', 
Reihe(Y+3*B,'*','0', 
SelectObject (Kontext, 
DeleteObject (F); 

END; 


Oo Das nebenstehende Tastenfeld wurde 


Ol mit dem Befehl 
Tastenfeld(DC,50,50,75); 


gezeichnet. 


Das Rezept verwendet die Schrift 
Jf Normal. Deren Qualität hängt von 
den auf Ihrem System installierten 
Schriftarten und auch von der Schriftgröße ab. Bei 
Bedarf können Sie natürlich andere Schriften einset- 
zen; die Größe sollte jedoch nicht geändert werden, 
damit die Zeichen zentriert in den Tasten erscheinen. 


70 M.10 Parkett 


Um eine Bildschirmfläche mit einem Parkett auszulegen, verwenden Sie 
az das folgende Rezept. Ein einzelnes Element des Parketts wird zunächst 

nach TParkett.Speicher geschrieben; die Methode T’Parkett.Zeichnen legt 

das Element AX-mal in X- und AY-mal in Y-Richtung auf den Bildschirm. 


TYPE 

TParkett = OBJECT 
Speicher : HDC; 
Bitmap : HBitmap; 
Breite,Hoehe: INTEGER; 
PROCEDURE Init(Schirm: HDC; B: INTEGER; H: INTEGER); 
PROCEDURE Zeichnen (Schirm: HDC; U: TPoint; AX,AY: INTEGER); 
PROCEDURE Done; 

END; 


PROCEDURE TParkett.Init 


:= B; Hoehe := H; 
:= CreateCompatibleBitmap(Schirm,Breite,Hoehe); 


Speicher := CreateCompatibleDC (Schirm); 

SelectObject (Speicher ,Bitmap); 

BitBlt (Speicher, 0,0,Breite,Hoehe,Schirm,Breite,Hoehe,Whiteness); 
END; 


PROCEDURE TParkett.Zeichnen; 
VAR i,k: INTEGER; 
BEGIN 
FOR i:=1 TO AY DO FOR k:=1 TO AX DO 
BitBlt (Schirm,U.X+(k-1)*Breite,U.Y+(i-1)*Hoehe,Breite,Hoehe, 
Speicher,0,0,SrcCopy); 
END; 


PROCEDURE TParkett.Done; 
BEGIN DeleteDC (Speicher); DeleteObject (Bitmap); END; 


Das folgende Programm 


= . 3 Us.., n — 
zeigt die Anwendung; im / u T;,, / 5 \ AN 
. . . j Ur \ OR 
Bild rechts ist ein Element \ AR EN une 
. . \ / / 
gestrichelt markiert: rt % 
/ N ala \ Mm 
/ \ j4 N \ 
\ 2” FF ? 4 >— Hoehe 
N. FH N / 
1 f \ MN / \ /MS 
TParkett; A Sue EN 
‘ { ur ) \ RW) } E 
INTEGER; MN / \ AR / Hoehe 
DC := GetDC(HWindow); Dee AN Le. u 
Rl := IntRound(R*Sqrt(3.0)); Breite Breite 


Parkett.Init(DC,3*R,Rl-1); — 
Vieleck(Parkett.Speicher,R,Rl DIV 2,R,0,6); 
MoveLine (Parkett.Speicher,2*R,R1 DIV 2,3*R,Rl DIV 2); 
SetPoint(U,R,Rl DIV 2); Spinne(Parkett.Speicher ,U,5,4,-900); 
SetPoint(U,5*R DIV 2,0); Spinne(Parkett.Speicher,U,5,4,-900); 
SetPoint (U,U.X,Rl); Spinne (Parkett.Speicher,U,5,4,-900); 
SetPoint(U,100,100); Parkett.Zeichnen(DC,U,2,3); 
Parkett.Done; ReleaseDC (HWindow,DC); 

END; 


P PRÄSENTATIONSGRAFIKEN 


Rezept-Statistik 


FEEHEFEHFHFFFFEFFEF or 


=£.2 
2080. 
Te5.8P2 
S2938= FHEHEHEEHE in 
Q © © sun..nan En: nun znmE mmm 
ug2235 
5322 an Fr > 


72 P.1 Tortendiagramm 


Ein Tortendiagramm (die 
"offizielle" Bezeichnung lautet 
Kreisdiagramm oder Sekto- 
rendiagramm) ist auf den 
ersten Blick ein recht einfaches Objekt. Es 
besteht aus einem Kreis, der in mehrere 
Sektoren eingeteilt ist. Das nebenstehende 
Bild zeigt ein solches Diagramm aus vier 
Sektoren. Zur Verdeutlichung sind zusätz- 
lich der Umkreis und die Winkel gestrichelt 
eingezeichnet. Man sieht, daß der Kreis 
keineswegs voll ausgefüllt sein muß, und 
daß das Diagramm bei einem beliebigen 
Winkel a beginnen kann. Ein Tortendia- 
gramm kann durch ein TURBO-PASCAL-Objekt beschrieben werden: 
PTorte = “"TTorte; 
TTorte = OBJECT 
Sektoren: PCollection; 
M : TPoint; {Mittelpunkt der Torte} 
R : INTEGER; {Radius der Torte} 
alpha : INTEGER; {Startwinkel zur Waagrechten in Zehntelgrad} 
CONSTRUCTOR Init 
(X,Y,Radius: INTEGER; {Mittelpunkt und Radius der Torte} 
A : INTEGER); {Startwinkel} 
DESTRUCTOR Done; VIRTUAL; {Gibt den Speicherplatz frei} 
PROCEDURE Einfuegen(B: INTEGER; P: TLogBrush); 


PROCEDURE Zeichnen(Kontext: HDC); {Zeichnet die Torte} 
END; 


Eine Torte kann aus einer beliebigen Anzahl von Sektoren bestehen. Deren Speicherung 
erfolgt daher in einem "Array" variabler Länge, also zweckmäßigerweise in einer 
TCollection. Das leistet das Feld Sektoren in TTorte. Die weiteren Felder sprechen für 
sich. 


Der Konstruktor Init stellt Speicherplatz für Sektoren bereit und definiert die Daten der 
Torte. 


Jeder Sektor ist durch seinen Winkel und sein Füllmuster charakterisiert. Diese stehen im 
Objekt TTortensektor: 
PTortensektor “TTortensektor; 


TTortensektor = OBJECT(TObject) 
beta : INTEGER; {Sektorwinkel in Zehntelgrad} 


Pinsel: TLogBrush; {Füllmuster} 
CONSTRUCTOR Init(B: INTEGER; P: TLogBrush); 
END; 


Die einzelnen Methoden lauten wie folgt: 


CONSTRUCTOR TTorte.Init; 

BEGIN 
Sektoren := New(PCollection,Init(5,1)); 
SetPoint(M,X,Y); 
R := Radius; alpha := A; 

END; 


DESTRUCTOR TTorte.Done; 
BEGIN Dispose(Sektoren,Done); END; 


PROCEDURE TTorte.Einfuegen(B: INTEGER; P: TLogBrush); 
BEGIN 

Sektoren“ .Insert (New(PTortensektor,Init(B,P))); 
END; 


PROCEDURE TTorte.Zeichnen; 
VAR 
W: INTEGER; 


PROCEDURE CallZeichnen(P: PTortensektor); FAR; 
VAR B,B_alt: HBrush; 
BEGIN 
B := CreateBrushIndirect (P’.Pinsel); 
B_alt := SelectObject (Kontext,B); 
Sektor (Kontext ,M.X,M.Y,R,W,P”.beta); 
W:= W + P”.beta; 
SelectObject (Kontext,B_alt); 
DeleteObject (B); 
END; 


BEGIN 
W := alpha; 
Sektoren“ .ForEach (@CallZeichnen); 
END; 


CONSTRUCTOR TTortensektor.Init; 
BEGIN 

TOobject.Init; 

beta := B; Pinsel := P; 
END; 


Oo Das Bild auf der vorigen Seite wird durch das folgende Programmstück 
NO gezeichnet, wobei die einzelnen Sektoren auf dem Bildschirm verschieden 
gefärbt sind (rot, grün, blau, violett): 


VAR 
DC: HDC; Torte: PTorte; Brush: TLogBrush; 
BEGIN 
DC := GetDC(HWindow); 
Torte := New(PTorte, Init(160,160,150,450)); 
Lade_Brush (Brush,hs_Vertical,fb_rot); 
Torte” .Einfuegen(900,Brush); 
Lade _Brush (Brush,hs_Cross,fb_gruen); 
Torte” .Einfuegen(700,Brush); 
Lade _Brush (Brush,hs_Horizontal,fb_blau); 
Torte” .Einfuegen(400,Brush); 
Lade _Brush (Brush,hs_Solid,fb_violett); 
Torte” .Einfuegen(500,Brush); 
Torte” .Zeichnen(DC); Dispose(Torte,Done); 
ReleaseDC (HWindow,DC); 
END; 


74 P.2 Tortendiagramm mit Beschriftung 


Ein Tortendia- |TYPE 


PTortensektorB = "TTortensektorB; 
gramm muß TTortensektorB = OBJECT(TTortensektor) 
oft beschriftet Beschriftung: STRING; 


d Ei CONSTRUCTOR Init 
werden: , EIN (B: INTEGER; P: TLogBrush; S: STRING); 
Nachkomme des vorherigen | END; {TTortensektorB} 


Rezepts, bei dem zusätzlich | PTorteB = “TTorteB; 
R . TTorteB = OBJECT(TTorte) 
zu jedem Sektor en Text PROCEDURE Einfuegen 
anzugeben ist, erledigt das. (B: INTEGER; P: TLogBrush; S: STRING); 
_y PROCEDURE Zeichnen (Kontext: HDC); 
Rechts finden Sie die Dekla- ( 1 


END; {TTorteB} 


ration, unten die Methoden: 


CONSTRUCTOR TTortensektorB.Init; 
BEGIN TTortensektor.Init(B,P); Beschriftung := S; END; 


PROCEDURE TTorteB.Einfuegen; 
BEGIN Sektoren” .Insert (New(PTortensektorB,Init(B,P,S))); END; 


PROCEDURE TTorteB.Zeichnen; 
VAR W: INTEGER; 


PROCEDURE CallZeichnen(P: PTortensektorB); FAR; 
VAR V,X,Y: INTEGER; 
BEGIN 
V := W + P”.beta DIV 2; 
VerschiebePunktInteger (M.X,M.Y,R,V,X,Y); 
TextOutStringW(Kontext,X,Y,P” .Beschriftung,V); Inc(W,P°”.beta); 
END; 


BEGIN 

TTorte.Zeichnen (Kontext); 

W := alpha; Sektoren” .ForEach(@CallZeichnen); 
END; 


oO Rechts finden Sie ein ähnliches 
R Re Sektor 1 
Ol Tortendiagramm wie im vorhe- 
rigen Rezept, nur mit anderen 
Winkeln und mit Beschriftung: 


VAR 

DC: HDC; 

T PTorteB; 

B TLogBrush; 

GI 

DC := GetDC (HWindow); 
T := New(PTorteB, 

Init(300,200,150,450)); 

Lade _Brush(B,hs_Vertical,0); 
T°.Einfuegen(900,B,'Sektor 1'); 
Lade_Brush(B,hs_Cross,0); 
T°.Einfuegen (600,B, 'Sektor 2'); Sektor 4 
Lade_Brush(B,hs_Horizontal,0); 
T°.Einfuegen(700,B,'Sektor 3'); 
Lade _Brush(B,hs_Solid,0); T”.Einfuegen(500,B, 'Sektor 4'); 
T°.Zeichnen(DC); Dispose(T,Done); ReleaseDC (HWindow,DC); 

END; 


P.3 Balkendiagramm 75 


Ein Balkendiagramm ist aus nebeneinanderliegenden Balken aufgebaut, 
die selbst wiederum — ähnlich wie ein Tortendiagramm — aus einzelnen 
Teilbalken bestehen. Das Rezept für einen einzelnen Balken lautet: 


PBalkenTeil = "TBalkenTeil; “TBalken; 
TBalkenTeil = OBJECT(TObject) OBJECT 
Hoehe: INTEGER; Teile : PCollection; 
Pv : TLogBrush; Ursprung: TPoint; {links unten} 
CONSTRUCTOR Init Breite : INTEGER; 
INTEGER; CONSTRUCTOR Init 
TLogBrush); (X,Y,B: INTEGER);{Urspr.,Breite} 
DESTRUCTOR Done; VIRTUAL; 
PROCEDURE Einfuegen 
(H: INTEGER; P: TLogBrush); 
PROCEDURE Zeichnen (Kontext: HDC); 
END; 


CONSTRUCTOR TBalkenTeil.Init; 
BEGIN 

TOobject.Init; 

Hoehe := H; 


PROCEDURE TBalken.Zeichnen; 


VAR 
H: INTEGER; 


PROCEDURE CallZeichnen 
(P: PBalkenTeil); FAR; 


CONSTRUCTOR TBalken.Init; VAR 
BEGIN B,B_alt: HBrush; 
Teile := New(PCollection, BEGIN . R 
Init(5,1)); B := CreateBrushIndirect (P”.Pv); 
B alt := 


SetPoint (Ursprung, X,Y); 
Breite := B; 
END; 


SelectObject (Kontext ,B); 
Rectangle (Kontext, ,‚Ursprung.X, 
H-P° .Hoehe, 
Ursprung.X+Breite+l,H+1); 
H := H - P”.Hoehe; 
SelectObject (Kontext,B_alt); 
Deleteobject (B); 
END; 


DESTRUCTOR TBalken.Done; 
BEGIN 

Dispose (Teile,Done); 
END; 


PROCEDURE TBalken.Einfuegen; 
BEGIN 

Teile” .Insert (New 
(PBalkenTeil,Init(H,P))); 


BEGIN 
H := Ursprung.Y; 
Teile“ .ForEach(@CallZeichnen); 
END; 


Der nebenstehende Balken wird wie folgt gezeichnet: 


VAR % 
DC : HDC; CH 
Balken: PBalken; Brush: TLogBrush; 4 


BEGIN 
DC := GetDC (HWindow); 
Balken := New(PBalken,Init(10,300,50)); 
Lade_Brush (Brush,hs_Vertical,fb_rot); 
Balken“ .Einfuegen(100,Brush); 
Lade _Brush(Brush,hs_BDiagonal,fb_blau); 
Balken” .Einfuegen(30,Brush); 
Lade_Brush (Brush,hs_Solid,fb_gruen); 
Balken” .Einfuegen(10,Brush); 
Balken” .Zeichnen (DC); a] 
Dispose(Balken,Done); ReleaseDC (HWindow,DC); 

END; 


P.4 Dreidimensionales Balkendiagramm 


Ein dreidimen- 
sionales Balken- 
diagramm ist ei- 
gentlich eine Va- 
riante eines zweidimensionalen; 
daher kann es auf ein solches 
zurückgeführt werden. Am ne- 
benstehenden Bild ist zu sehen, 
daß oben und rechts je ein 
Parallelogramm dazukommt. 


Die Objektdeklarationen lauten: 


PBalkenTeil3D = “TBalkenTeil3D; 
TBalkenTeil3D = OBJECT (TBalkenTeil) 
Po,Pr: TLogBrush; 
CONSTRUCTOR Init 
(H : INTEGER; 
V,O,R: TLogBrush); 
END; 


PBalken3D = “TBalken3D; 
TBalken3D = OBJECT(TBalken) 
Tiefe : INTEGER; 
Winkel: INTEGER; {Zehntelgrad} 
CONSTRUCTOR Init 
(X,Y: INTEGER; {Ursprung} 

: INTEGER; {Breite} 

: INTEGER; {Tiefe} 

: INTEGER); {Winkel} 
PROCEDURE Einfuegen(H: INTEGER; V,O,R: TLogBrush); 
PROCEDURE Zeichnen(Kontext: HDC); 

END; 


Die Methoden lauten: 


CONSTRUCTOR TBalkenTeil3D.Init; 
BEGIN 


TBalkenTeil.Init(H,V); 


CONSTRUCTOR TBalken3D.Init; 
BEGIN 
TBalken.Init(X,Y,B); 
Tiefe := T; 
Winkel := W; 
END; 


PROCEDURE TBalken3D.Einfuegen 
BEGIN 

Teile”.Insert (New(PBalkenTeil3D,Init(H,V,O,R))); 
END; 


PROCEDURE TBalken3D.Zeichnen; 
VAR 
H: INTEGER; 


PROCEDURE CallZeichnen(P: PBalkenTeil3D); FAR; 
VAR 
Bv,Bo,Br,B_alt: HBrush; 


CreateBrushIndirect (P°.Pv); 
CreateBrushIndirect (P°.Po); 
CreateBrushIndirect (P°.Pr); 
:= SelectObject (Kontext,Bv); 
Rectangle (Kontext, 
Ursprung.X,H-P° .Hoehe,Ursprung.X+Breite+1,H+1); 
SelectObject (Kontext Bo); 
Parallelogramm(Kontext, 
Ursprung.X,H-P°.Hoehe,Breite,Tiefe,0,Winkel); 
SelectObject (Kontext,Br); 
Parallelogramm(Kontext, 
Ursprung.X+Breite,H,Tiefe,P” .Hoehe,Winkel,900-Winkel); 
SelectObject (Kontext,B_ alt); 
DeleteObject (Bv); 
DeleteObject (Bo); 
DeleteObject (Br); 
H := H - P”.Hoehe; 
END; 


BEGIN 

H := Ursprung.Y; 

Teile” .ForEach(@CallZeichnen); 
END; 


Oo Der linke Balken im Bild auf der vorherigen Seite besteht aus zwei Teil- 

Ol balken. Jeder Teilbalken benötigt drei Pinsel (für vorne, oben und rechts); 

das gilt auch für den unteren Teilbalken, dessen oberes Parallelogramm 

schließlich wieder verdeckt wird. Die Angabe der Pinsel kann mit 

Lade_Brush (Rezept W.3) erfolgen; ein Pinsel, der mehrmals verwendet wird, braucht 
dabei nur einmal geladen zu werden. Das Programm für den genannten Balken lautet: 


VAR 
De : HDC; 
Balken : PBalken3D; 
Bv,Bo,Br: TLogBrush; 

BEGIN 
DC := GetDC (Hwindow); 
Balken := New(PBalken3D,Init(100,350,80,20,300)); 
Lade_Brush (Bv,hs_Cross, fb_rot); 
Lade Brush(Bo,hs | Horizontal, fb_rot); 
Lade Brush(Br,hs | _DiagCross, fb _ rot); 
Balken” .Einfuegen(200,Bv,Bo,Br); 
Lade_Brush (Bv,hs ‚ BDiagonal, fb _blau); 
Lade _Brush(Bo,hs_Solid,fb_blau); 
Lade_Brush(Br,hs_FDiagonal, fb _blau); 
Balken” .Einfuegen(80,Bv,Bo,Br); 
Balken“ .Zeichnen (DC); 
Dispose (Balken,Done); 
ReleaseDC (HWindow,DC); 

END; 


78 P.5 Rahmen 


Organigramme bestehen aus Texten, die mit einem mehr oder weniger 
dekorativen Rahmen umgeben sind. Das folgende Rezept zeichnet einen 
doppelten, abgerundeten Rahmen und schreibt Text hinein: 


PROCEDURE Rahmen 
(Kontext: HDC; 
Bereich: TRect; 

INTEGER; 
INTEGER; 
PChar); 


B := Bereich; 


WITH B DO RoundRect (Kontext, left,top,right,bottom, 
(right-left) DIV Ecke, (bottom-top) DIV Ecke); 

WITH B DO 
SetRect (B,left+Dicke,top+Dicke,right-Dicke,bottom-Dicke); 

WITH B DO RoundRect (Kontext,left,top,right,bottom, 
(right-left) DIV Ecke, (bottom-top) DIV Ecke); 

WITH B DO SetRect (B,left+1+((right-left) DIV (2*Ecke)),topt1l, 
right-1-((right-left) DIV (2*Ecke)) ,bottom-1); 

RectTextOut (Kontext ,B,Zeile); 

END; 


Bereich ist das Rechteck, innerhalb dessen der Rahmen liegt. Dicke bezeichnet den 
Abstand der beiden Teile des Rahmens in Pixeln; bei Dicke=0 wird ein einfacher 
Rahmen gezeichnet. Ecke gibt die Abrundung der Ecken an; je kleiner dieser Wert ist, 
umso runder werden die Ecken. Für große Werte (etwa 100) erhält man Rechtecke; 
Werte < 0 sind nicht zulässig. 


Das nebenstehende 


Om 

Ol Organigramm, das mit Generaldirektor 
der folgenden Befehls- 
folge erhalten wird, 


zeigt einige Möglichkeiten: 


VAR Laufbursche 
DC: HDC; 
B : TRect; 

BEGIN 
DC := GetDC (HWindow); 
SetRect (B,200,20,400,100); 
Rahmen (DC,B,6,100, 'Generaldirektor'); 
SetRect(B,80,150,220,230); 
Rahmen (DC,B,4,3, 'Butler'); 
SetRect (B,380,150,520,230); 
Rahmen (DC,B,0,8,'Laufbursche'); 
MoveTo(DC,150,150); LineTo(DC,150,125); 
LineTo(DC,450,125); 
LineTo(DC,450,150); 
MoveLine(DC,300,125,300,100-1); 
ReleaseDC (HWindow,DC); 

END; 


P.6 Schattierter Rahmen 79 


Eine andere Art von Rahmen sind Rechtecke, die mit einem 

Schlagschatten beliebiger Größe und Richtung ausgestattet sind. Das 

folgende Rezept zeichnet zunächst den Schatten, legt ein in der 

Hintergrundfarbe ausgefülltes Rechteck darüber und schreibt dann den 
Text in der aktuellen Schriftart hinein: 


PROCEDURE RahmenSchattiert 
(Kontext: HDC; 
Bereich: TRect; 


: INTEGER; 
: TColorRef; 
: PChar); 


: TRect; 
P,P_alt: HBrush; 
BEGIN 
P := CreateSolidBrush (Farbe); 
. P_alt := SelectObject (Kontext,P); 
WITH Bereich DO SetRect (B,left+dX,top+dY,right+dX,bottom+tdY); 
FillRect (Kontext,B,P); 
SelectObject (Kontext,P_alt); 
DeleteoObject (P); 
WITH Bereich DO Rectangle (Kontext,left,top,right,bottom); 
WITH Bereich DO SetRect (B,left+1,top+1,right-1,bottom-1); 
RectTextOut (Kontext ,B,Zeile); 
END; 


Bereich bezeichnet das Rechteck, um das der eigentliche Rahmen gezeichnet und in das 
der Text geschrieben wird. Unter diesem Bereich (und daher nur teilweise sichtbar) liegt 
ein mit Farbe ausgefülltes Rechteck gleicher Größe (der Schatten); dX und dY geben die 
Verschiebung des Schattens gegenüber Bereich an. 


oO Das folgende Beispiel zeigt, wie Schat- 


Ol ten verschiedener Richtung, Größe und 


Farbe erzeugt werden können: 


VAR 
DC: HDC; 
B : TRect; 

BEGIN 
DC := GetDC (HWindow); 
SetRect (B,50,50,150,90); 
RahmenSchattiert (DC,B,-10,-5,fb_schwarz, 'Nordwest'); 
SetRect (B,200,50,300,90); 
RahmenSchattiert (DC,B,10,-5,£b_gelb, 'Nordost'); 
SetRect(B,50,110,150,150); 
RahmenSchattiert(DC,B,-3,15,£fb_gruen, 'Südwest'); 
SetRect (B,200,110,300,150); 
RahmenSchattiert (DC,B,3,15,fb_violett, 'Südost'); 
ReleaseDC (HWindow,DC); 

END; 


Das obige Bild zeigt das Ergebnis; die verschiedenen Farben sind im Druck natürlich 
nicht erkennbar. 


80 P.7 Dreidimensionaler Rahmen 


PROCEDURE Rahmen3D 
(Kontext: HDC; 
Bereich: TRect; 
dX,dY : INTEGER; 
Farbe : TColorRef; 
Zeile : PChar); 


Ein dreidimen- | procEDURE Flaeche(X1,Y1,X2,Y2: INTEGER); 


sionaler Rah- VAR 


R 5 Punkte: ARRAY[0..3] OF TPoint; 
men sieht ähn- | peGın ! I f 


lich aus wie ein SetPoint (Punkte[0],X1,Y1); 
R : SetPoint (Punkte[1],X2,Y2); 
schattierter, er SetPoint (Punkte[2],X2+dX,Y2+dY); 


weist jedoch SetPoint (Punkte[3],X1+dX,Yi+dY); 
j 2 Polygon (Kontext ,Punkte,4); 
schräge Linien | znp; 


auf und ist da- |yar 


her schwieriger TRect; 
Ri S,S_alt: HPen; 
zu zeichnen. P,P_alt: HBrush; 
Aus diesem |BEGIN , 
5 i S := CreatePen(ps_Solid,1,Farbe); 
Grund ist die P := CreateSolidBrush (Farbe); 

S_alt := SelectObject (Kontext,S); 
nebenstehende P_alt := SelectObject (Kontext,P); 
Prozedur ent-| WITH Bereich DO BEGIN 

Z Flaeche (left,top,right-1,top); 
sprechend um Flaeche (right-1,top,right-1,bottom-1); 
fangreicher. Flaeche (right-1,bottom-1,left,bottom-1); 
Flaeche (left,bottom-1,left,top); 
Die Bedeutung | END; {WITH} 

SelectObject (Kontext,S_alt); 
der Parameter SelectObject (Kontext,P alt); 
ist dieselbe wie | Peleteobject(S); 

t R DeleteObject (P); 

im vorherigen | wITH Bereich DO 

Rezept Rectangle (Kontext, left,top,right,bottom); 
. WITH Bereich DO 


SetRect (B,left+1,top+l,right-1,bottom-1); 
RectTextOut (Kontext ,‚B,Zeile); 
END; 


IOl 

Das nebenstehende 

Bild wird genauso 

erzeugt wie im — 
vorherigen Rezept; Südwest 
es ist lediglich 

RahmenSchattiert 

durch Rahmen3D 

zu ersetzen. 
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3 R.1 Tetraeder 


Das folgende Rezept zeichnet ein Tetraeder. Der Ursprung U 

und die Längen L1,2L2,L3 sind im Bild weiter unten auf dieser 

Seite eingetragen; W1,W2,W3 sind die Winkel dieser Geraden 

zur Waagrechten in Zehntelgrad. Der Fußpunkt von L3 liegt 
genau auf der Mitte von L2. Alle Längen und Winkel sind nicht räumlich, sondern in der 
Zeichenebene zu denken. StiftV stellt die sichtbaren, StiffF die verdeckten Linien dar. 


PROCEDURE Tetraeder 
(Kontext HDC; 
U TPoint; 
L1,L2,1L3 INTEGER; 
w1,W2,W3 INTEGER; 
Stiftv,StiftH: TLogPen); 
VAR 
P: ARRAY[0..4] OF TPoint; SV,SH,S_alt: HPen; 
BEGIN 
P[0] := U; 
VerschiebePunktInteger (U.X,U.Y,L1,W1,P[1].X,P[1].Y); 
VerschiebePunktInteger (U.X,U.Y,L2,W2,P[2].X,P[2].Y); 
VerschiebePunktInteger (U.X,U.Y,L2 DIV 2,W2,P[4].X,P[4]1.Y); 
VerschiebePunktInteger (P[4].X,P[4].Y,L3,W3,P[3].X,P[3].Y); 
SV := CreatePenIndirect (StiftV); SH := CreatePenIndirect (StiftH); 
S_alt := SelectObject (Kontext,SV); Polygon(Kontext,P,4); 
MoveLine (Kontext,P[1].X,P[1].Y,P[3].X,P[3].Y); 
SelectObject (Kontext,SH); 
MoveLine (Kontext ,P[0].X,P[0].Y,P[2].X,P[2].Y); 
SelectObject (Kontext,S_alt); 
DeleteObject (SV); DeleteObject (SH); 
END; 


Oo Das nebenstehende Tetraeder wird 


Ol mit folgendem Programm gezeich- 
net: 


VAR 
DC : HDC; 
U : TPoint; 
SV,SH: TLogPen; 
BEGIN U 


DC := GetDC (HWindow); 
Lade_Pen(SV,ps_Solid,2,fb_blau); R 
Lade_Pen(SH,ps_Dot,1,fb_rot); 
SetPoint(U,220,300); _ 
Tetraeder (DC,U,140,400,300,-400,-50,800,SV,SH); 
ReleaseDC (HWindow,DC); 

END; 


Tetraeder können beliebig im Raum liegen. Ein einfa- 
ches Rezept kann die sichtbaren und verdeckten Lini- 
en nicht immer korrekt darstellen. Eine ungeeignete 
Wahl der Parameter wie etwa in 


Tetraeder (DC,U,70,200,150,200,-50,800,SV,SH); 


wodurch das nebenstehende Bild erhalten wurde, führt zu einer unrichtigen Darstellung. 


PROCEDURE Pyramid: 
(Kontext : HDC; 

U : TPoint; 
L1,1L2,13 : INTEGER; 
W1,W2,W3 : INTEGER; 
StiftV,StiftH: TLogPen); 
VAR 
pP : ARRAY[0..5] OF TPoint; 
SV,SH,S_alt: HPen; 
BEGIN 
P[0] := U; 
VerschiebePunktInteger (U.X,U.Y,L1,W1,P[1].X,P[1]-Y 
VerschiebePunktInteger (U.X,U.Y,L2,W2,P[4].X,P[4]-Y 
VerschiebePunktInteger 
(P[1].X,P[1].Y,L2,W2,P[2].X,P[2].Y); 

i SetPoint (P[5], 
Mit dem neben- len DIV 2,(P[11.Y+P[4].Y) DIV 2); 
stehenden Re- VerschiebePunktInteger 

R ö (P[51.X,P[51.Y,L3,W3,P[3].X,P[3].Y); 

zept können Sie SV := CreatePenIndirect (StiftV); 

5 . SH := CreatePenIndirect (StiftH); 
ae Pyramide S_alt := ee 
zeichnen. Die Polygon (Kontext,P,4); 

PR alt. MoveLine (Kontext,P[1].X,P[1].Y,P[3].X,P[3].Y); 
Größenverhält- | se1ectobject (Kontext ,sE]; 
nisse und die | MoveLine(Kontext,P[4].X,P[4].Y,P[0].X,P[0]1-Y); 

n Pr MoveLine (Kontext, P[4].X,P[4].Y,P[2]1.X,P[2].Y); 
Winkel können | yoveLine (Kontext ,Pf4].X,P[4].Y.P[31.X,P[31.Y); 
Sie dem Bild | SelectObject (Kontext,S_alt); 

% DeleteObject (SV); 
weiter unten auf Deleteobject en H 
dieser Seite ent- |END; 


nehmen; sie sind ähnlich wie in Rezept R.1 zu verstehen. 


r 


Das folgende Programm ergibt 
die nebenstehende Pyramide; die 
verschiedenen Farben können na- 
türlich nicht gedruckt werden. Zu- 
sätzlich sind Längen und Winkel eingezeichnet: 


U : TPoint; 
SV,SH: TLogPen; 
BEGIN 


DC := GetDC (HWindow); 

Lade_Pen(SV,ps_Solid,2,fb_blau); 

Lade_Pen(SH,ps_Dot,1,fb_rot); 

SetPoint (U,300,300); 

Pyramide (DC,U,140,200,300, 
-400,100,850,SV,SH); 

ReleaseDC (HWindow,DC); 

END; 


Die obere Pyramide auf dieser Seite erhält man folgendermaßen: 


Pyramide(DC,U,140,180,300,-400,50,900,8V,SH); 
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Mit dem folgenden Rezept können Sie einen Würfel zeich- 
nen; Ursprung, Abmessungen und Winkel sehen Sie weiter 
unten auf dieser Seite: 


PROCEDURE Wuerfel 
(Kontext : HDC; 
U : TPoint; 

L1,L2,L3 : INTEGER; 

w1,W2,W3 : INTEGER; 

stiftv, StiftH: TLogPen); 

> 

: ARRAY[0..8] OF TPoint; 

ee; SH,S_alt: HPen; 

BEGIN 
P[0] := U; P[6] := U; 
VerschiebePunktInteger (U.X,U.Y,L1,W1,P[1].X,P[1].Y) 
VerschiebePunktInteger (U.X,U.Y,L2,W2,P[8].X,P[8].Y) 
VerschiebePunktInteger (U.X,U.Y,L3,W3,P[5].X,P[5]-Y) 
VerschiebePunktInteger (P[1].X,P[1].Y,L2,W2,P[2].X,P 
VerschiebePunktInteger (P[1].X,P[1].Y,L3,W3,P[7].X,P 
VerschiebePunktInteger (P[5].X,P[5]-.Y,L2,W2,P[4].X,P 
VerschiebePunktInteger (P[2].X,P[2].Y,L3,W3,P[3].X,P 
SV := CreatePenIndirect (StiftV); 
SH := CreatePenIndirect (StiftH); 
S_alt := SelectObject (Kontext,SV); 
Polygon (Kontext, P,6); 
MoveLine (Kontext, P[7].X,P[7].X,P[5]-.X,P[5]-Y 
MoveLine (Kontext,P[7].X,P[7].Y,P[3].X,P[3].X 
MoveLine (Kontext,P[7].X,P[7].Y,P[1]-.X,P[1].Y 
SelectObject (Kontext,SH); 
MoveLine (Kontext,P[8].X,P[8].Y,P[2].X,P[2]-Y 
MoveLine (Kontext,P[8].X,P[8]-.Y,P[01.X,P[0].Y 
MoveLine (Kontext,P[8].X,P[8].Y,P[41.X,P[4].YX 
SelectObject (Kontext ,S alt); 
DeleteObjeet(SV}; DeleteObject (SH); 


[2].Y) 
[7]-Y) 
[4]-Y) 
[3]-%) 


Der nebenstehende Würfel wird mit dem Pe 
folgenden Programm gezeichnet. DC ist 
der Bildschirmkontext: 12 


U : TPoint; \ \ \W3 
SV,SH: TLogPen; 
BEGIN | \,/, 
Lade _Pen(SV,ps_Solid,1,fb_blau); L3\ > YW2 
Lade_Pen(SH,ps_Dot,1, £b _rot); a 
SetPoint(U,300, 350); WW 
Wuerfel(DC,U, v 
200,100,190,200,500,1000,SV,SH); > 


END; 


Einen "gewöhnlichen" Würfel (vgl. das Bild ganz oben) erhalten Sie so: 


Lade_Pen(SV,ps_Solid,3,fb_schwarz); 
Lade_Pen(SH,ps_Null, L, fb _ schwarz); 
Wuerfel(DC,U,50,30, 50, 0,300,900,SV,SH); 
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Ein Oktaeder besteht aus zwei Pyramiden, die mit ihren Grundflächen an- 
einandergesetzt wurden. Die Längen und Winkel sind daher genauso defi- 
niert wie im Pyramiden-Rezept R.2. 


PROCEDURE Oktaeder 
(Kontext : HDC; 
U : TPoint; 

L1,L2,13 : INTEGER; 

W1,W2,W3 : INTEGER; 

StiftV,StiftH: TLogPen); 

VAR 
p : ARRAY[0..6] OF TPoint; 
SV,SH,S_alt: HPen; 

BEGIN 
P[0] := U; 
VerschiebePunktInteger (U.X,U.Y,L1,W1,P[4].X,P[4].Y); 
VerschiebePunktInteger (U.X,U.Y,L2,W2,P[5]1.X,P[5]-Y); 
VerschiebePunktInteger (P[4].X,P[4].Y,L2,W2,P[2].X,P[2].Y 
SetPoint(P[6], (P[4].X+P[5].X) DIV 2, (P[4].Y+P[5].Y) DIV 2); 
VerschiebePunktInteger (P[6].X,P[6].Y,L3,W3,P[3].X,P[3].YX 
VerschiebePunktInteger (P[6].X,P[6].Y,-L3,W3,P[1].X,P[1]-Y); 
SV := CreatePenIndirect (StiftV); 
SH := CreatePenIndirect (StiftH); 
S_alt := SelectObject (Kontext ,SV); 
Polygon (Kontext ,P,4); 
MoveLine (Kontext,P[4].X,P[4].Y,P[0].X,P[0]. 
MoveLine (Kontext,P[4].X,P[4].Y,P[1].X,P[1]. 
MoveLine (Kontext,P[4].X,P[4].Y,P[2]-.X,P[2]. 
MoveLine (Kontext,P[4].X,P[4].Y,P[3].X,P[3]- 
SelectObject (Kontext,SH); 
MoveLine (Kontext ,P[5].X,P[5]1-.Y 
MoveLine (Kontext,P[5].X,P[5]-Y 
MoveLine (Kontext,P[5].X,P[5].Y 
MoveLine (Kontext, P[5].X,P[5]1-Y 
SelectObject (Kontext,S_alt); 
DeleteObject (SV); 
DeleteObject (SH); 

END; 


P 
P 
P 
P 
P 


! 
’ 
’ 
’ 


oO Beim nebenstehenden Oktaeder wer- 


®) den die sichtbaren Linien mit einem 
dicken, die verdeckten mit einem ge- 


punkteten Stift gezeichnet: 
VAR 
DC  : HDC; 
U : TPoint; 
SV,SH: TLogPen; 
BEGIN 


DC := GetDC (HWindow); 

Lade_Pen(SV,ps_Solid,3,£fb_blau); 

Lade _Pen(SH,ps_Dot,1,fb_rot); 

SetPoint(U,300,170); 

Oktaeder(DC,U,140,180,190, 
-400,50,800,5V,SH); 

ReleaseDC (HWindow,DC); 

END; 
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Verschiedene Arten von Zylindern und 

Rohren können Sie mit der folgenden Proze- 

dur zeichnen. Die Abmessungen sind dem 

nebenstehenden Bild (W= 900, also 90°) zu 
entnehmen. Mit Boegen > 0 können Sie zusätzlich Halb- 
kreise, mit Linien>0 Striche zeichnen; Beispiele sehen 
Sie im Bild auf der nächsten Seite. 


Die einzelnen Parameter haben folgende Bedeutung: 

U ist der "Ursprung" des Zylinders und dient zur genauen 
Positionierung auf dem Bildschirm. 

L ist die Länge des geraden Teils des Zylinders (die maxi- 
male Länge beträgt 2R+L). 

R ist der Radius der abschließenden Kreise des Zylinders; 
die Breite des Zylinders beträgt 2R. 

Ri ist der Radius des inneren Kreises und sollte (außer für 
Spezialeffekte) < R gewählt werden. Bei Ri= 0 wird er nicht gezeichnet; ein Beispiel 
für Ri> R sehen Sie im Bild auf der folgenden Seite unter 5. 


PROCEDURE Zylinder 
(Kontext: HDC; 

TPoint; 
INTEGER; 
INTEGER; 
WORD; 
WORD; 
INTEGER); 


Mx,My,Sx,Sy,Tx,Ty,Mlx,Mly,S1x,Sly,T1x,Tly: INTEGER; 
d: INTEGER; 
i: WORD; 
BEGIN 
VerschiebePunktInteger (U.X,U.Y,-L DIV 2,W,Mx,My); 
VerschiebePunktInteger (Mx,My,-R,W-900,5x,Sy); 
VerschiebePunktInteger (Mx,My,R,W-900,Tx,Ty); 
FOR i:=0 TO Boegen DO BEGIN 
d := i*L DIV (Boegent+t1); 
VerschiebePunktInteger (Mx,My,d,W,Mlx,Mly); 
VerschiebePunktInteger (Sx,Sy,d,W,S1x,S1y); 
VerschiebePunktInteger (Tx,Ty,d,W,Tlx,Tly); 
Arc (Kontext ‚Mlx-R,Mly-R,Mlx+R+1,Mly+R+1,S1x,S1y,Tlx,Tly); 
END; {FOR} 
FOR i:=0 TO Linien+1 DO BEGIN 
d := 2*i*R DIV (Linient1); 
VerschiebePunktInteger (Sx,Sy,d,W-900,51x,S1y); 
VerschiebePunktInteger(S1lx,Sly,-IntRound 
(Sqrt (Sqr (R*1.0)-Sqr((R-d)*1.0))),W,$1x,Sly); 
LineWinkel (Kontext ,S1x,Sly,L,W); 
END; {FOR} 
VerschiebePunktInteger (U.X,U.Y,L DIV 2,W,Mx,My); 
Ellipse (Kontext ‚Mx-R,My-R,Mx+R+1,My+R+1); 
Ellipse (Kontext ‚Mx-Ri,My-Ri,Mx+Ri+1,My+Ri+t1); 
END; 
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O— Im Bild unten sehen Sie eine Reihe verschiedener Zylinder, die alle mit 
NO diesem Rezept gezeichnet wurden. Für jedes Exemplar folgt eine 


D) 


2) 


3) 


4) 


5) 


6) 


Beschreibung mit Angabe des Prozeduraufrufs: 


"Vollzylinder" (Ri = 0), um 20° gegen die Waagrechte verdreht: 
zylinder(DC,U,200,30,0,0,0,200); 

"Hohlzylinder" (0 < Ri <.R) mit 25 Bögen zur Verstärkung des Raumeindrucks: 
Zylinder (DC,U,180,40,30,25,0,1000); 

Senkrechter (W = 90°) Hohlzylinder ohne Bögen und Linien: 

Zylinder (DC,U,170,30,20,0,0,900); 

Waagrechter (W = 180°) Hohlzylinder mit sehr vielen Bögen: 
Zylinder(DC,U,200,30,20,80,0,1800); 

Spezialfall mit Ri> R: 

Zylinder(DC,U,100,20,25,16,0,100); 


Hohlzylinder mit 5 Linien zur Verstärkung des Raumeindrucks: 


Zylinder (DC,U,200,30,20,0,5,-450); 
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Ein Ring oder Torus kann 
durch eine größere Anzahl 
gleichgroßer Kreise, deren 
Mittelpunkte auf einer EI- 
lipse liegen, leicht realisiert werden. Die 
nebenstehende Prozedur erledigt das. 


Das obige Bild zeigt ein Beispiel mit 30 
Kreisen und W = 0; die Abmessungen sind 
zusätzlich eingezeichnet. 


R.6 Torus 


PROCEDURE Torus 
(Kontext: HDC; 
TPoint; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER); 


< 
ark 


- 
un 


d 
Mx,M 


[e] 
[53] 


Hanna 


Cos (PiZehntelgrad*W); 
-Sin(PiZehntelgrad*W); 
2*Pi/Kreise; 


H 
... 2. 


=1 TO Kreise DO BEGIN 

= IntRound (A*cos(i*d)*C 
-B*sin(i*d)*S)+U.X; 

My := IntRound (A*cos(i*d)*S 

+B*sin(i*d)*C)+U.Y; 

Arc (Kontext ,‚Mx-R,My-R,Mx+R+1, 

My+R+1,Mx+R,My ,Mx+R,My); 

{FOR} 


g? 


END; 
END; 


® 

Einen starken räum- 
lichen Eindruck be- 
kommt man, wenn 
man genügend viele 
Kreise zeichnet. 
Das nebenstehende 
Gebilde wurde mit 
500 Kreisen und 
einem Winkel von 
20° erzeugt: 


VAR 


DC: HDC; 
U : TPoint; 

BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,300,200); 
Torus(DC,U,200,100,50,200,500); 
ReleaseDC (HWindow,DC); 

END; 


S SCHREIBEN 


1,571 


Bogenmaß 


0,1745329252 
0,3490658504 
0,5235987756 
0,6981317008 
0,8726646260 
1,0471975512 
1,2217304764 
1,3962634016 
1,5707963268 
1,7453292520 
1,9198621772 
2,0943951024 
2,2689280276 
2,4434609528 
2,6179938780 


4,712 


sinx 
0,1736481777 
0,3420201433 
0,5000000000 
0,6427876097 
0,7660444431 
0,8660254038 
0,9396926208 
0,9848077530 
1,0000000000 
0,9848077530 
0,9396926208 
0,8660254038 
0,7660444431 
0,6427876097 
0,5000000000 


cosx 


0,9848077530 
0,9396926208 
0,8660254038 
0,7660444431 
0,6427876097 
0,5000000000 
0,3420201433 
0,1736481777 
0,0000000000 
-0,1736481777 
-0,3420201433 
-0,5000000000 
-0,6427876097 
-0,7660444431 
-0,8660254038 


tanx 


0,1763269807 
0,3639702343 
0,5773502692 
0,8390996312 
1,1917535926 
1,7320508076 
2,74747714195 
5,6712818196 


-5,6712818196 
-2, 7474774195 
-1,7320508076 
-1,1917535926 
-0,8390996312 
-0,5773502692 


9% | S.1 Text ausgeben 


Für die Textausgabe ist die Standardfunktion TextOut vorgesehen. Sie 
erfordert jedoch den Text als einen nullterminierten String; zusätzlich muß 
die Anzahl der auszugebenden Zeichen angegeben werden. Will man einen 
Pascal-String ausgeben, so muß man diesen zuerst umwandeln. Das 
folgende Rezept erledigt diese Arbeit: 


PROCEDURE TextOutString 
(Kontext: HDC; 
X,Y : INTEGER; {Start der Textausgabe} 
Ss : STRING); {Auszugebender Text} 
VAR 
A: ARRAY[0..255] OF CHAR; 
BEGIN 
TextOut (Kontext ,X,Y,StrPCopy(A,S),Length(S)); 
END; 


Grafik-Demoprogramm — 
| Allgemeines Bitmaps Chaos Drucken Geometrie 
| Kurvendiagramme WMensch/T. Präsentation Raum 


| Schreiben Tiere Umr. Werkzeuge Zwischenablage 


Das obige Bild stellt ein Fenster dar. Das Programm 


VAR 
DE  : HDC; 
Zeile: STRING; 
BEGIN 


DC := GetDC (HWindow); 
Zeile := 'PROCEDURE TextOutString'; 
TextOutString(DC,0,0,Zeile); 
ReleaseDC (HWindow,DC); 

END; 


schreibt den Text in die linke obere Ecke. Dabei wird die aktuelle Schrift in der aktuellen 
Textfarbe verwendet; der ausgegebene Text wird mit der aktuellen Hintergrundfarbe 
hinterlegt. 
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Die Standardfunktionen zur Textausgabe schreiben den ganzen übergebe- 
nen Text in eine einzige Zeile. Will man den Text in einem vorgegebenen 
Rechteck unterbringen, so muß man an geeigneten Stellen einen Zeilenum- 
bruch vornehmen. Das folgende Rezept erledigt das: 


PROCEDURE RectTextOut (Kontext: HDC; Bereich: TRect; Zeile: PChar); 
VAR 
Puffer,Start,Ende,E: PChar; 


X,Y,Hoehe : INTEGER; 
TextAlign : WORD; 
BEGIN 


GetMem(Puffer,StrLen(Zeile)+1); 
TextAlign := SetTextAlign(Kontext,ta_Center); 
Hoehe := HiWord (GetTextExtent (Kontext ,‚Zeile,StrLen(Zeile))); 
Y := Bereich.top; X := Bereich.right-Bereich.left; 
Start := Puffer; 
WHILE Start<Puffer+StrLen(Zeile) DO BEGIN 
Ende := Puffer+StrLen (Zeile); 
StrCopy (Puffer,Zeile); 
WHILE NOT (LoWord (GetTextExtent (Kontext,Start,Ende-Start) )<=X) 
DO BEGIN 
E := StrRScan(Start,' '); 
IF E=NIL THEN Dec(Ende) ELSE Ende := E; 
Ende[0] := #0; 
END; {WHILE NOT Platz_vorhanden} 
ExtTextOut (Kontext ‚Bereich.left+X DIV 2,Y,eto_Clipped, @Bereich, 
Start,Ende-Start ,NIL); 
Inc(Y,Hoehe); Start := Endetl; 
END; {WHILE StrLen} 
SetTextAlign (Kontext , TextAlign); 
FreeMem(Puffer,StrLen(Zeile)+1); 
END; 


Der Parameter Bereich gibt das Rechteck an, das für den Text zur Verfügung steht; eine 
eventuelle Umrandung muß außerhalb von Bereich gezeichnet werden. 


Zeile ist ein Zeiger auf den anzuzeigenden Text; dieser wird nicht als STRING angege- 
ben, da er mehr als 255 Zeichen umfassen kann. Bei Bedarf wird der Text an Leerstellen 
umgebrochen; wenn ein Wort länger als die Breite des Rechtecks ist, wird es nicht kor- 
rekt angezeigt. Wenn der Text zu lang ist, wird er abgeschnitten. Die Anzeige erfolgt 
zentriert und mit der aktuellen Schriftart. 


OO Der nebenstehende Text 
ION einschließlich des Rahmens 
wird mit nachstehender 


Befehlsfolge in ein Fenster 


gezeichnet: 
SetRect(B,10,10,135,37); 


WITH B DO Rectangle (DC,left-1,top-1,right+1,bottom+1); 
RectTextOut (DC,B, 'Tausendfüßler sind recht urtümliche Tiere.'); 


DC ist der Bildschirmkontext, B hat den Typ TRect. 
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CONST 
ff_Normal 
£f£f_Courier 
ff_Helv 
£ff_HelvFix 


Variable Pitch OR ff_Roman; 
Fixed _]} Pitch OR ff "Roman; 
Variable | Pitch OR £f _ Swiss; 
Fixed Pitch OR f£ Swiss; 


nanı 


Timer R OWS FUNCTION Create Schrift 

kann man eine Anzahl (Hoehe: INTEGER; Familie: BYTE): HFont; 
hrift : |vAR 

“ e Sc n pe LogFont: TLogFont; 

verschiedenen Größen |BEGIN 


; ; WITH LogFont DO BEGIN 
einsetzen. Allerdings 1fHeight := Hoehe; 


ist es aufwendig, eine na ı= g ; ß 
; : scapement := 0; 
einzelne Schrift fest- 1fOrientation := 0; 
zulegen, da man jedes 1fWeight := fw_Normal; 
A lf£fItalic := 0; 
Mal eine große Anzahl lfUnderline := 0; 
von Parametern vorge- 1fStrikeout := 0; 
lf£fCharSet := ANSI_CharSet; 
ben muß. Das neben- lfOutPrecision := Out_Default_Precis; 
= lfCclipPrecision := clip Default _Precis; 
stehende Rezept nu lfQuality := Default_Quality; 
leichtert diese Arbeit; lfPitchAndFamily := Familie; 


;. “01; ; StrCopy(@lfFaceName, 'Tms New Rmn'); 
es müssen lediglich die END; {wir} 
Schriftgröße und der Create_Schrift := CreateFontIndirect (LogFont); 


Zeichensatz übergeben LENDi 
werden. Einige nützliche Familienkonstanten sind ebenfalls definiert. 


Oo Das nebenstehen- 


©) de Bild zeigt ei- Höhe: 10; Zeichensutz: ff_Normal 
nige  Schriftpro- Höhe: 15; Zeichensatz: ff Normal 


ben; eine typische Höhe: 20; Zeichensatz: ff_Normal 


Befehlsfolge lautet: Höhe: 20; Zeichensatz: ff_Courier 
Höhe: 20; Zeichensatz: ff_Helv 
VAR Höhe und Schriftart: Default 
DC ® HDC; 
F,F_alt: HFont; 
BEGIN 


DC := GetDC (HWindow); 

F := Create_Schrift(10,£ff_Normal); F_alt := SelectObject (DC,F); 
{Schreiben} 

SelectObject(DC,F_alt); DeleteObject (F); 


ReleaseDC (HWindow,DC); 
END; 


Die verfügbaren Schriftarten hängen von der Konfiguration Ihres Systems 
ab. TmsNewRmn ist Bestandteil von WINDOWS3.l; mit 
WINDOWS 3.0 sollten Sie Tms Rmn verwenden. Eine Anleitung zur 
Ermittlung der vorhandenen Schriftarten finden Sie z.B. in [2], Kap. 18. 
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FUNCTION Create_Schriftw 
w; (Hoehe : INTEGER; 
Winkel : INTEGER; 
az, CharSet: BYTE; 


BYTE; 
: PChar): HFont; 


Das vorhergehende 
rh 8 LogFont: TLogFont; 


Rezept war dazu ge- |BEGIN 


- er | WITH LogFont DO BEGIN 
dacht, einfache Schrif- 1fHeight := Hoche; 


ten von verschiedener lfwidth := 0; 
r\ > lfEscapement := Winkel; 
Höhe und mit festem lfOrientation := 0; 
bzw. variablem Zei- l£fWeight := fw_Normal; 
lfItalic := 0; 
chenabstand zu erzeu- 1£Underline := 0; 
gen. Die Möglichkei- 1fStrikeout := 0; 
äi all lfCharSet := CharSet; 
ten, e vor em l£fOutPrecision := Out_Default_Precis; 
WINDOWS 3.1  bie- lfClipPrecision := Clip_Default_Precis; 
i R lfQuality := Default _Quality; 
tet, konnten damit bei lfPitchAndFamily := Familie; 


weitem nicht ausge- StrCopy (@lfFaceName,Face); 
s END; {WITH} 
schöpft werden. Das Create_SchriftW := CreateFontIndirect (LogFont); 


nebenstehende Rezept [END; 
ermöglicht es, schräg zu schreiben und verschiedene Sonderzeichen zu erzeugen. 


Symbol_CharSet 
/F_Normal 
'Tms New Rmn' 


Symbol_Charset 
Jf_HelvFix 


f HelvFix 


'Tms New Rmn' 


Die Schriften in der obigen Tabelle wurden mit Hoehe = 40 und Winkel = 300 erzeugt; 
die übrigen verwendeten Parameter sind jeweils angegeben. 


Die Schriften Tms New Roman und Wingdings sind erst in WINDOWS 3.1 
verfügbar. 


Die Zeichen, die im Symbol- und im Wingdings-Zeichensatz enthalten 
sind, können Sie mit der zu WINDOWS 3.1 gehörenden Anwendung 
"Zeichentabelle" anschauen. 


5 Beschriftung eines Kreises 


anbringen. Ein typischer Anwendungsfall sind Tortendiagramme. Die 
Textausrichtung muß dabei an die Lage des Textes relativ zum Kreis 
angepaßt werden. Das folgende Rezept erleichtert Ihnen diese Aufgabe. 


Vorzugeben sind der Punkt (X,Y) auf dem Kreisumfang, an dem der Text den Kreis 
berühren soll, sowie der Winkel W (gemessen in Zehntelgrad zur Waagrechten im 
Gegenuhrzeigersinn), den die Verbindungslinie zwischen diesem Punkt und dem 
Kreismittelpunkt bildet. Am oberen Bild auf der nächsten Seite sind die Verhältnisse zu 
sehen. S ist der auszugebende Text. 


| Häufig möchte man an das Äußere eines Kreises Beschriftungen 


PROCEDURE TextOutStringW 
(Kontext: HDC; 
INTEGER; 
STRING; 
INTEGER); 


INTEGER; 
INTEGER; 
WORD; 
WORD; 


3600; 
IF V=0 THEN A := ta_BaseLine 
ELSE IF V<1800 THEN A := ta_Bottom 


ELSE IF V=1800 THEN A := ta_BaseLine 
ELSE A := ta_Top; 
V := (W+2700) MOD 3600; 
IF V=0 THEN B := ta_Center 
ELSE IF V<1800 THEN B := ta_Right 
ELSE IF V=1800 THEN B := ta_Center 
ELSE B := ta_Left; 
TextAlign := SetTextAlign(Kontext,A OR B); 
VerschiebePunktInteger 
(X,Y,HiWord (GetTextExtent (Kontext, ' ',1)) DIV 4,W,p,q); 
TextOutString (Kontext,p,g,5S); 
SetTextAlign (Kontext, TextAlign); 
END; 


oO Das Bild auf der nächsten Seite zeigt das Ergebnis des Rezepts; je nach W 
Ol gibt es acht qualitativ verschiedene Möglichkeiten. Im folgenden 
Programm wurde jeweils mit VerschiebePunktInteger der Punkt (X,Y) 
ermittelt und dann mit TextOutStringW der Text gezeichnet. (Mx,My) ist 

der Mittelpunkt des Kreises: 


150; 
300; 
200; 


5 


DC: HDC; 

: INTEGER; 
INTEGER; 
INTEGER; 


[2 
.... 


BEGIN 
DC := GetDC (HWindow); 
Ellipse(DC, 


Mx-R,My-R,Mx+R,My+R); 
0 Nordwest 
W:=0; z 
VerschiebePunktInteger „Nordost 
(Mx,MyıR,W,X,Y); 
MoveLine (DC,Mx,My,X,Y); 
TextOutStringW 
(DC,X,Y,'Ost',W); m 


W:= 350; T 
VerschiebePunktInteger 
(Mx,My,R,W,X,Y); 
MoveLine (DC,Mx,My,X,Y); 
TextOutStringW 
(DC,X,Y, 'Nordost' ,W); 


{Analog für die anderen 
Beschriftungen} 
ReleaseDC (HWindow,DC); 

END; 


Um eine Beschriftung 
an das Innere eines 
Kreises anzubringen, 
hat man einfach W 
durch W + 1800 zu er- 
setzen. Das nebenste- 
hende Bild erhält man 
so: 


CONST 
R = 150; 
Mx = 300; 
My = 200; 
VAR 
DC : HDC; 
X,Y: INTEGER; 
W : INTEGER; 
i : BYTE; 
BEGIN 


DC := GetDC (HWindow); 

Ellipse (DC,Mx-R,My-R,Mx+R,My+R); 

FOR i:=1 TO 14 DO BEGIN 
Wo:= i*225; 
VerschiebePunktInteger (Mx,My,R,W,X,Y); 
TextOutStringW(DC,X,Y,CHAR(BYTE('A')+i-1) ,W+1800); 

END; {FOR} 

ReleaseDC (HWindow,DC); 

END; 


96 S.6 REAL-Zahl ausgeben 


Wenn eine REAL-Zahl anzuzeigen ist, muß sie zuerst in einen String um- 
gewandelt werden. Die Standardprozedur Str setzt hierbei einen Dezimal- 
punkt, der noch in ein Komma umzuwandeln ist. Das folgende Rezept 
zeigt eine reelle Zahl in einer Festkommadarstellung an: 

PROCEDURE RealOut 


(Kontext : HDC; 
xX,Y INTEGER; {Start der Textausgabe} 


R : REAL; {Auszugebender Wert} 


DezStellen: 
BEGIN 
TextOutString(Kontext,X,Y,Real_in_String_fest(R,DezStellen)); 
END; 


Hierin wird die REAL-Zahl R mit dem Hilfsprogramm 


FUNCTION Real_in_String_fest 
(R ? REAL; 
DezStellen: BYTE): STRING; 

VAR 
uszule: STRING; 

: BYTE; 


BYTE); 


BEGIN 
IF DezStellen=0 THEN BEGIN 
Str(R:1:1,Ergebnis); 
Delete (Ergebnis,Length(Ergebnis)-1,2); 


END 


ELSE 
Str(R:1:DezStellen,Ergebnis); 
FOR i:=1 TO Length(Ergebnis) DO 
IF Ergebnis[i]='.' THEN Ergebnis[i] := 
Real_in_String_fest := Ergebnis; 
END; 


- VAR 
DC HDC; 
i INTEGER; 


i : 
Y : INTEGER; 
TextAlign: WORD; 
5 i u F2 : HFont; 
Das Titelbild die Faik : HFont: 


ses Kapitels zeigt BEGIN 
einige Anwendun- 


F2 := Create _Schrift(15,Fixed_Pitch OR ff_Swiss); 


gen. Die Spalte TextAlign := SetTextAlign(DC,ta_Right); 
Want a F_alt := SelectObject (DC,F2); 
sinx" in der Ta- Yı= 577; 
belle der trigono- FOR i:=1 TO 15 DO BEGIN 
metrischen - Real9ur (DE,330 7 ,aln Ti #100FPizehntelgran) 10); 
unkti Inc(Y,15); 
onen wird bei- END; {FOR} 
z , ; SetTextAlign(DC,TextAlign); 
spielsweise wie sSelectObject(DC,F alt); 
nebenstehend er- DeleteObject (F2); 


... 


zeugt: END: 


T TIERE UND PFLANZEN 


98 T.1 Rädertierchen 


PROCEDURE Raedertierchen 
(Kontext: HDC; 


TPoint; {Mittelpunkt} 
INTEGER; {Äußerer Radius} 
INTEGER; {Startwinkel} 
Ss BYTE); {Anzahl der Strahlen} 
Rädertierchen, auch |BEGIN 


Strahlentierchen oder De ee DIV 2,R DIV 4,R,W,S); 
Radiolarien genannt, 

sind winzige stachlige Kugeln. Das obige Rezept führt sie auf "entartete" Zahnräder 
zurück. 


D; 


oO Das untenstehende Bild zeigt vier Rädertierchen unterschiedlicher Größe 
NO) und Strahlenzahl. Es wurde mit folgendem Programm gezeichnet: 


VAR 
DC: HDC; 
U : TPoint; 

BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,200,200); Raedertierchen(DC,U,190,0,37); 
SetPoint(U,500,90); Raedertierchen(DC,U,80,180,13); 
SetPoint(U,495,280); Raedertierchen(DC,U,120,0,79); 
SetPoint(U,380,50); Raedertierchen(DC,U,30,20,17); 
ReleaseDC (HWindow,DC); 

END; 


2 Ameise 


Ameisen sind - zumindest in Mitteleuropa - 

äußerst nützliche Tiere. Rechts sehen Sie den 

Ursprung U und die Abmessungen einer Amei- 

se, die mit dem folgenden Rezept unter dem 
Winkel W = 0 gezeichnet wurde. 


PROCEDURE Ameise 
(Kontext: HDC; 

: TPoint; 

: INTEGER; 

: INTEGER); 

VAR 
S,T: TPoint; 
P : ARRAY[0..3] OF TPoint; 
i : SHORTINT; 

BEGIN 
FOR i:=-1 TO 1 DO BEGIN 

LineWinkel (Kontext ,U.X,U.Y,4*R,W+900+1*300); 
LineWinkel (Kontext,U.X,U.Y,-4*R,W+900+1*300); 

END; {FOR} 
VerschiebePunktInteger (U.X,U.Y,3*R,W,T.X,T.Y); 
VerschiebePunktInteger (U.X,U.Y,-3*R,W,S.X,5.Y); 
VerschiebePunktInteger (S.X,S.Y,R DIV 2,W-900,P[0].X,P[0].Y); 
VerschiebePunktInteger (P[0].X,P[0].Y,6*R,W,P[1].X,P[1].Y); 
VerschiebePunktInteger (S.X,S.Y,-R DIV 2,W-900,P[3].X,P[3].Y); 
VerschiebePunktInteger (P[3].X,P[3].Y,6*R,W,P[2].X,P[2]-.Y); 
Polygon (Kontext ,P,4); 
LineWinkel (Kontext, T.X,T.Y,2*R,W+450); 
LineWinkel (Kontext, T.X,T.Y,2*R,W-450); 
Ellipse (Kontext, T.X-R,T.Y-R,T.X+R+1,T.Y+R+1); 
Ellipse (Kontext,S.X-2*R,S.Y-2*R,S.X+2*R+1,5.Y+2*R+1); 

END; 


Oo Das Gewim- 


©) mel in einem 
Ameisenhau- 


fen ist mit 
einem Zufallszahlengene- 


rator wiederzugeben: 
CONST 
Xm = 300; 
Ym = 350; 
R = 250; 
VAR 
DC: HDC; 
U : TPoint; i: INTEGER; 
BEGIN 


DC := GetDC(HWindow); RandSeed := 0; 
FOR i:=1 TO 1500 DO BEGIN 
U.X := Random(Xm+R); U.Y := Random(Ym); 
IF Sqr((U.X-Xm)*1.0)+Sqr((U.Y-Ym)*1.0)<Sqr(R*1.0) THEN 
Ameise(DC,U,3,Random(3600)); 
END; {FOR} 
ReleaseDC (HWindow,DC); 
END; 


100 T.3 Seestern 


Mit der folgenden Prozedur können Sie einen Seestern 
zeichnen. U und R bezeichnen den Mittelpunkt und den 
Radius des Tieres, W den Drehwinkel. Bei W=0 geht ein 
Arm nach rechts. Mit dem Stift Si werden die inneren 
Linien, mit Sa der Umriß gezeichnet. Das Innere wird mit dem 
aktuellen Pinsel ausgefüllt. 

PROCEDURE Seestern 

(Kontext: HDC; 


: TPoint; 
: INTEGER; 


INTEGER; 
TLogPen) 


_ alt: HPen; 

ARRAY[0..9] OF TPoint; 
INTEGER; 
BYTE; 


ı= W; 
FOR i:=0 TO 9 DO BEGIN 
IF Odd(i) THEN 
VerschiebePunktInteger(U.X,U.Y,R DIV 2,W1,P[i]-.X,P[i].Y) 
ELSE 5 
VerschiebePunktInteger (U.X,U.Y,R,W1,P[i].X,P[il-Y); 
Inc(W1,360); 
END; {FOR} 
Pi := CreatePenIndirect(Si); Pa := CreatePenIndirect (Sa); 
P_alt := SelectObject (Kontext,Pa); Polygon(Kontext,P,10); 
SelectObject (Kontext,Pi); 
wl := W; 
FOR i:=0 TO 4 DO BEGIN 
MoveLine(Kontext,U.X,U.Y,P[2*i].X,P[2*i].Y); 
Inc(W1,720); 
END; {FOR} 
SelectObject (Kontext,P_alt); DeleteObject(Pi); DeleteObject (Pa); 
END; 


O——=] Der Seestern rechts unten wurde wie folgt gezeichnet: 


Ball van | 
NS DC: HDC; U: TPoint; 
Si,Sa : TLogPen; 
BEGIN 


DC := GetDC (HWindow); 
Lade_Pen(Si, 

ps_Dash,1,fb_schwarz); 
Lade_Pen(Sa, 

ps_Solid,3,£fb_schwarz); 
SetPoint(U,300,210); 
Seestern (DC, 

U,200,80,5i,Sa); 
ReleaseDC (HWindow,DC); 

END; 


Einen Schlangenstern (s. das obere | 
Bild auf dieser Seite) zeichnen Sie mit Rezept M.5 (Zahnrad). 


T.4 Tausendfüßler 101 


Tausendfüßler sind ziemlich einfach gebaute, urtümliche Tiere. Entspre- 
chend wenig Mühe bereitet es, sie mit Hilfe von Geraden und Ellipsen zu 
zeichnen: 


PROCEDURE Tausendfuessler (Kontext: HDC; X,Y,S,H,B,L,DX: INTEGER); 
PROCEDURE Seg(SX,SY: INTEGER); {Zeichnet ein Segment} 
BEGIN 
Ellipse (Kontext, SX-B,SY-H,SX+B+1,SY+H+1); {eigentl. Segment} 
MoveLine (Kontext,SX-3,SY-H-L,SX,SY-H); {Bein nach oben} 
MoveLine (Kontext ,SX-3,SY+H+L,SX,SY+H); {Bein nach unten} 
END; 


FUNCTION f(i: INTEGER): INTEGER; {Bestimmt die Krümmung} 
BEGIN 

£ := i*(S-i) DIV 15; 
END; 


VAR 
i,MX,MY: INTEGER; 
BEGIN 
MX := X; MY := Y; {Mittelpunkt des ersten Segments} 
MoveLine (Kontext ,MX,MY,MX-40,MY-10); 
MoveLine (Kontext ,MX,MY,MX-40,MY+10); 
FOR i:=0 TO S DO BEGIN 
Seg(MX,MY+f(i)); {Zeichnet ein Segment} 
Inc(MX,DX); {Verschieben des Mittelp. für das folgende Segment} 
END; {FOR} 
MoveLine (Kontext ,MX,MY,MX+40,MY-10); {Fühler nach oben} 
MoveLine (Kontext ,MX,MY,MX+40,MY+10); {Fühler nach unten} 
Ellipse (Kontext ,MX-10,MY-10,MX+30,MY+11); {Kopf} 
END; 


Die einzelnen Parameter dieser Prozedur haben folgende Bedeutung: 

X,Y: Mittelpunkt des ersten (linken) Segments 

S: Anzahl der Segmente - 1 

H,B: halbe Höhe bzw. Breite eines Segments 

L: Länge eines Beins 

DX: Abstand zweier Segmente (sollte <2B gewählt werden, damit sich die Segmente 
überlappen). 


Der abgebildete Tausendfüßler wird durch das folgende Programmstück in ein Fenster 
gezeichnet: 
Kontext := GetDC (HWindow); 


Tausendfuessler (Kontext,50,100,50,10,7,20,9); 
ReleaseDC (Hwindow,Kontext); 


102 


2 
Rıl 


4xR2 2xR2 


Allseits beliebte 
niedliche Tierchen 
sind die Spinnen. 
Alle Spinnen be- 
stehen aus dem 
Vorderleib, wel- 
cher vier Beinpaa- 
re trägt, und dem 
davon abgesetzten 
Hinterleib. Das 
vorliegende Re- 
zept trägt diesem 
Aufbau Rechnung. 
Bei U treffen Vor- 
der- und Hinter- 
leib zusammen. 


T.5 Spinne 


PROCEDURE Spinne 


(Kontext: HDC; 
: TPoint; 
: INTEGER; 
: INTEGER); {Winkel zur Waagrechten} 


VAR 


X1,Y1,X2,Y2,R: INTEGER; 


BEGIN 


VerschiebePunktInteger(U.X,U.Y,R2 DIV 3,W,X1,Y1); 
VerschiebePpunktInteger (X1,Y1,2*R,W+3150,X2,Y2); 
Kreisbogen (Kontext,X1,Y1,X2,Y2,4*R); 
VerschiebePunktInteger (X1,Y1,2*R,W+3450,X2,Y2); 
Kreisbogen (Kontext,X1,Y1,X2,Y2,4*R); 
VerschiebePunktInteger (X1,Y1,2*R,W+150,X2,Y2); 
Kreisbogen (Kontext ,X2,Y2,X1,Y1,4*R); 
VerschiebePunktInteger (X1,Y1,2*R,W+450,X2,Y2); 
Kreisbogen (Kontext,X2,Y2,%X1,Y1,4*R); 
VerschiebePunktInteger (U.X,U.Y,R2,W,X1,Yl1); 
VerschiebePunktInteger (X1,Y1,2*R,W+1300,X2,Y2); 
Kreisbogen (Kontext,X1,Y1,X2,Y2,3*R); 
VerschiebePunktInteger (X1,Y1,2*R,W+1500,X2,Y2); 
Kreisbogen (Kontext,X1,Y1,X2,Y2,2*R); 
VerschiebePunktInteger(X1,Y1,2*R,W+2100,X2,Y2); 
Kreisbogen (Kontext ,X2,Y2,X1,Y1,2*R); 
VerschiebePunktInteger (X1,Y1,2*R,W+2300,X2,Y2); 
Kreisbogen (Kontext ,X2,Y2,X1,Y1,3*R); 
VerschiebePunktInteger (U.X,U.Y,-2*R1,W,X2,Y2); 
EllipseWinkel (Kontext,X2,Y2,2*R1,R1,W); 
VerschiebePunktInteger (U.X,U.Y,R2,W,X2,Y2); 
Ellipse (Kontext ,X2-R2,Y2-R2,X2+R2+1,Y2+R2+1); 
VerschiebePunktInteger (U.X,U.Y,2*R2,W+100,X2,Y2); 
EllipseWinkel(Kontext,X2,Y2,R2 DIV 3,R2 DIV 10,W); 
VerschiebePunktInteger (U.X,U.Y,2*R2,W-100,X2,Y2); 
EllipseWinkel (Kontext,X2,Y2,R2 DIV 3,R2 DIV 10,W); 


END; 


Die obige Zeichnung wurde mit W = 0 erhalten; dort sind auch R/ und R2 eingetragen. 


| 


1Ol 


VAR 


DC : HDC; 
U : TPoint; 
S,S_alt: HPen; 


BEGIN 


DC := GetDC (HWindow); 
SetPoint(U,400,200); 
Spirale(DC,U,1,11,130,180,180,1); 
Zahnrad(DC,U.X,U.Y,0,0,190,0,13); 
ı= CreatePen(ps_Solid,4,0); 
S_alt := SelectObject (DC,S); 
Spinne (DC,U,30,21,-800); 
SelectObject (DC,S_alt); 
DeleteObject (S); 
ReleaseDC (HWindow,DC); 


END; 


Das untenstehende Bild zeigt eine Spinne in ihrem Netz. Zunächst wird 
das Netz gezeichnet; anschließend kann die Spinne mit dem Kopf nach 
unten hineingesetzt werden: 


T.6 Käfer 103 


Das nebenstehende Bild zeigt den Aufbau 
eines Käfers. Er besteht aus dem Kopf, dem 
Rumpf, zwei Fühlern und sechs Beinen. Der 
Kopf ist ein Kreis mit dem Durchmesser A, 
der Rumpf eine Ellipse mit den Halbachsen A und B. Die 
Beine sind durch Sinus-Kurven dargestellt, die Fühler durch 
Geraden. Beine und Fühler werden vor der Ellipse bzw. 
dem Kreis gezeichnet, so daß ihre Ansätze verdeckt sind 
und nicht genau berechnet werden müssen. Das vereinfacht 
das Rezept etwas. Zu Abrundung wird noch die Trennlinie 
der Flügeldecken eingezeichnet. Die Parameter können Sie 
dem Bild entnehmen; (X,Y) bezeichnen den Mittelpunkt der 
Ellipse, die den Rumpf repräsentiert. Die Prozedur lautet: 


PROCEDURE Kaefer 
(Kontext: HDC; 
s INTEGER; {Mittelpunkt des Rumpfes} 
: INTEGER; {Halbe Breite des Rumpfes} 
: INTEGER); {Halbe Höhe des Rumpfes} 


TPoint; 
: TRect; 
BEGIN 
SetRect (C,X,Y-B,X+2*A,Y+B); 
SetPoint(U,X+A,Y-(B DIV 3)); 
Funktionsgraph (Kontext,U,C,A/6.3,A/6.3,Sinus); 
U.Y := Y; 
Funktionsgraph (Kontext,U,C,A/6.3,A/6.3,Sinus); 
U.Y := Y+(B DIV 3); 
Funktionsgraph (Kontext ,U,C,A/6.3,A/6.3,Sinus); {Beine rechts} 
SetRect (C,X-2*A,Y-B,X,Y+B); 
SetPoint(U,X+A,Y-(B DIV 3)); 
Funktionsgraph (Kontext,U,C,A/6.3,-A/6.3,Sinus); 
U.Y := Y; 
Funktionsgraph (Kontext,U,C,A/6.3,-A/6.3,Sinus); 
U.Y := Y+(B DIV 3); 
Funktionsgraph (Kontext, U,C,A/6.3,-A/6.3,Sinus); {Beine links} 
Ellipse (Kontext,X-A,Y-B, KHA+L ‚Y4B+1); 
Kreisbogen (Kontext, X, Y-B+(A DIV 4),X,Y+B-(A DIV 4) ,A+4*B) ; {Rumpf} 
LineWinkel (Kontext,X,Y-B-(A DIV 2),A,600); {Fühler rechts} 
LineWinkel(Kontext,X,Y-B-(A DIV 2),A,1200); {Fühler links} 
Ellipse (Kontext,X-(A DIV 2),Y-B-A,X+(A DIV 2),Y-B+t1); {Kopf} 
END; 


oe Der obige Käfer wird wie folgt gezeichnet: 


TOM "x. ae, 


BEGIN 
DC := GetDC (HWindow); 
Kaefer(DC, 200,200,25,75); 
ReleaseDC (HWindow,DC); 
END; 


104 T.7 Schnecke 


Das nebenstehende Bild zeigt den Aufbau 
und die Abmessungen einer nach rechts 
kriechenden Schnecke, die mit dem fol- 
genden Rezept gezeichnet wurde. Das 
Schneckenhaus wird durch eine Spirale dargestellt, 
deren Mittelpunkt mit dem Ursprung U der Prozedur 
zusammenfällt. Der Parameter R bestimmt die Größe der Schnecke. 


PROCEDURE Schnecke 
(Kontext: HDC; 
TPoint; 
INTEGER); 


INTEGER; 


Spirale(Kontext,U,0,-7.1,700+R,R,R,4); 
VerschiebePunktInteger (U.X,U.Y,R,-360,X1,Y1); 
MoveLine (Kontext, X1,Y1,U.X+2*R+1,Y1); 

Ri1 := (U.Y+R-Y1) DIV 4; 

xl := U.X+2*R; 

Kreisbogen (Kontext ,X1,U.Y+R,X1,Y1,2*Rl1+1); 


LineWinkel (Kontext, X1-R1,Y1+R1,R DIV 2,800); 
LineWinkel (Kontext ,X1,Y1+2*R1,R DIV 2,600); 
LineWinkel (Kontext ,X1+R1,Y1+3*R1,R DIV 4,-300); 
MoveLine (Kontext,X1,U.Y+R,U.X-2*R,U.Y+R); 
VerschiebePunktInteger (U.X,U.Y,IntRound (R*0.66),-1440,X1,Y1); 
MoveLine (Kontext,X1,Y1,U.X-2*R,U.Y+R); 

END; 


Die nebenstehende 
Schnecke wurde mit 
einem Stift der 
Dicke 3 gezeichnet; 
das Programm lautet: 


VAR 
DC : HDC; 
U : TPoint; 
S,S_alt: HPen; 
BEGIN 


DC := GetDC (HWindow); 
S := CreatePen(ps_Solid,3,fb_schwarz); 
S_alt := SelectObject (DC,S); 
SetPoint(U,300,250); 
Schnecke (DC,U,120); 
SelectObject (DC,S_alt); 
DeleteObject (S); 
ReleaseDC (HWindow,DC); 

END; 


T.8 Fisch (seitlich) 105 


Ein Fisch kann leicht mit einer geeigneten 
Cassini-Kurve (Rezept G.13) und einigen 
Strichen gezeichnet werden. Das neben- 
stehende Bild zeigt einen solchen, der mit 
dem folgenden Rezept und dem Winkel W = 0° erhalten 
wurde; die Abmessungen sind zusätzlich angegeben. 


PROCEDURE Fisch 
(Kontext: HDC; 
: TPoint; 
: REAL; 
: INTEGER); 
VAR 
B: TRect; i: SHORTINT; 
Sx,Sy,Tx,Ty,R,A: INTEGER; 
BEGIN 
R := IntRound(M*1.5); SetRect(B,U.X-R,U.Y-R,U.X+R,U.Y+R); 
Cassini(Kontext,U,B,0.01,0,1,M,W,IntRound(M)); 
VerschiebePunktInteger (U.X,U.Y,IntRound(0.84*M) ‚W,Sx,Sy); 
FOR i:=-3 TO 3 DO BEGIN 
A := W+i*100; 
VerschiebePunktInteger (Sx,Sy,IntRound (0.47*M) ‚A+900,Tx,Ty); 
LineWinkel (Kontext, Tx,Ty,IntRound (M/5) ,A+900); 
VerschiebePunktInteger (Sx,Sy,IntRound(0.47*M) ‚A-900,Tx,Ty); 
LineWinkel (Kontext, Tx,Ty,IntRound(M/5),A-900); 
VerschiebePunktInteger (U.X,U.Y,IntRound(0.2*M) ,‚A+1800,Tx,Ty); 
LineWinkel (Kontext, Tx,Ty,IntRound(0.15*M) ,‚A+1800); 
END; {FOR} 
END; 


Einen realistischeren Fisch erhält man, wenn man noch Maul und Augen dazuzeichnet: 


PROCEDURE Fisch_seitlich 
(Kontext: HDC; 
TPoint; 
REAL; 
INTEGER); 
VAR 
%X1,Y1,X2,Y2,R: INTEGER; 
BEGIN 


Fisch (Kontext ,U,M,W); 

VerschiebePunktInteger (U.X,U.Y,IntRound (M) ‚W,X1,Y1); 

VerschiebePunktInteger (U.X,U.Y,IntRound (M*1.4) ,W,X2,Y2); 

Kreisbogen (Kontext,X1,Y1,X2,Y2,IntRound (M)); 

VerschiebePunktInteger(U.X,U.Y,IntRound (M*1.2),W+100,X1,Y1); 

R := IntRound(M/20); Ellipse (Kontext,X1-R,Y1-R,X1+R+1,Yl+R+1); 
END; 


Oo Mit W= 0° bekommt man einen 


Ol lebenden, mit W = 180° einen to- 


ten Fisch. Die beiden nebenste- 
henden Exemplare erhält man so: 


Fisch_seitlich(DC,U,100,100); 
Fisch_seitlich(DC,U,100,1900); 


106 T.9 Fisch (oben/unten) 


Mit dem vorhergehenden Rezept konnten Fische in Seitenansicht 
gezeichnet werden. Einen Fisch von oben erhalten Sie ebenso einfach mit 
der folgenden Prozedur: 


PROCEDURE Fisch_oben 
(Kontext: HDC; 
: TPoint; 
: REAL; 
: INTEGER); 


VAR 

X1,Y1,%2,Y2,R: INTEGER; 
BEGIN 

Fisch (Kontext ,U,M,W); 


VerschiebePunktInteger (U.X,U.Y,IntRound(M*0.3),W,X1,Y1); 
VerschiebePunktInteger(U.X,U.Y,IntRound(M) ,‚W,X2,Y2); 
Kreisbogen (Kontext ,X1,Y1,X2,Y2,IntRound (M*#5)); 
R := IntRound(M/20); 
VerschiebePunktInteger (U.X,U.Y,IntRound (M#1.2) ,W+100,X1,Y1); 
Ellipse (Kontext, X1-R,Y1-R,X1+R+1,Y1+R+1); 
VerschiebePunktInteger (U.X,U.Y,IntRound (M*1.2) ,W-100,X1,Y1); 
Ellipse (Kontext, X1-R,Y1-R,X1+R+1,Y1+R+1); 

END; 


Wenn Sie den Fisch von unten zeichnen wollen, ist folgendes Rezept nützlich: 


PROCEDURE Fisch_unten 
(Kontext: HDC; 
: TPoint; 
: REAL; 
: INTEGER); 


X1,Y1,R: INTEGER; 


BEGIN 
Fisch (Kontext ,U,M,W); 
R := IntRound (M/50); 
VerschiebePunktInteger (U.X,U.Y,IntRound(M*1.2),W,X1,Y1); 
EllipseWinkel (Kontext, X1,Y1,3*R,10*R,W); 
END; 


Oo Die beiden neben- 
Ol stehenden Fische 
(der linke von oben, 
der rechte von 

unten gesehen) erhalten Sie so: 


VAR 
DC: HDC; 
U : TPoint; 
BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,100,300); 
Fisch_oben(DC,U,100,200); 
SetPoint (U,300,250); 
Fisch_unten(DC,U,100,-300); 
ReleaseDC (HWindow,DC); 
END; 
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verschiedener Formen gezeichnet werden. Ein einfaches Beispiel ist ein 


;f Mit Hilfe der Cassinischen Kurve (Rezept G.14) kann eine ganze Reihe 
Kleeblatt: 


PROCEDURE Kleeblatt 
(Kontext: HDC; 


TPoint; 
INTEGER); 


SetRect (B,U.X-R,U.Y-R,U.X+R,U.Y+R); 

Cassini (Kontext,U,B,0,-2.5,1,R*0.65,900,500); 

Kreisbogen (Kontext,U.X-R DIV 10,U.Y+R*3 DIV 4,U.X,U.Y,R); 
END; 


Das Kleeblatt wird in ein Quadrat mit der Seitenlänge 2R gezeichnet; der Mittelpunkt U 
des Quadrats ist zugleich der Mittelpunkt des Kleeblatts. 


Das nebenstehende Kleeblatt 
Ol malt man mit dem folgenden 

Programm in ein Fenster; zur 

Verdeutlichung ist das um- 
schließende Quadrat mit eingezeichnet: 


VAR 
DC: HDC; 
U : TPoint; 
BEGIN 
DC := GetDC(HWindow); 
SetPoint(U,300,200); 
Kleeblatt (DC,U,180); 
ReleaseDC (HWindow,DC); 
END; 


zum Zeichnen des Kleeblatts. Ersetzt man dort 
den Parameter Keulen = 1 durch einen anderen 
ungeraden Wert, so ergeben sich mehr Blätter. 
Das nebenstehende Bild entsteht beispielsweise mit 


Das Rezept verwendet eine Cassinische Kurve Fe. = 


Cassini (Kontext,U,B,0,-2.5,3,R*0.5,900,500); 


Dabei muß man den Maßstabsfaktor anpassen. 
Eine schöne sechsstrahlige Blume erhält man mit Keulen = 4: 
Cassini (Kontext,U,B,0,-2.5,4,R*0.65,0,500); 


Damit der Stiel zwischen die Blätter zu liegen kommt, wählt 
man den Drehwinkel 0°. 
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Blumen, die in der freien Natur vorkommen, sehen in der Regel nicht sehr 

gleichmäßig aus; vielmehr werden sie sehr bald vom Winde zerzaust und 

sind dann mit einfachen geometrischen Figuren nicht mehr zu zeichnen. 

Als Lösung bieten sich Cassinische Kurven an; allerdings ist es nicht ganz 
einfach, die geeigneten Parameter zu finden. Für den Wiesen-Bocksbart (Tragopogon 
pratensis) können Sie das folgende Rezept verwenden: 


PROCEDURE Blume 
(Kontext: HDC; 
U TPoint; 
INTEGER); 


SetRect (B,U.X-R,U.Y-R,U.X+R,U.Y+R); 

Cassini(Kontext,U,B,0.001,-0.8,19,R*0.65,550,1000); 

Kreisbogen (Kontext,U.X-R DIV 10,U.Y+R,U.X,U.Y,2*R); 
END; 


Dabei können Sie nur den Mittelpunkt U der Blüte und ihren Radius R vorgeben. 


Oo Das nebenstehende gutge- 

Ol wachsene Exemplar wurde 
mit folgendem Programm 
gezeichnet: 


VAR 
DC: HDC; 
U : TPoint; 
BEGIN 
DC := GetDC (HWindow); 
SetPoint(U,300,200); 
Blume (DC,U,200); 
ReleaseDC (HWindow,DC); 
END; 


RP 
r_OLRF 
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Bäume sind wichtige Bestandteile naturnaher Grafiken. Das folgende 
Rezept zeichnet einen Laubbaum; für den Stamm und für das Laub 
können unterschiedliche Schraffurmuster vorgegeben werden: 


PROCEDURE Laubbaum 
(Kontext : HDC; 
Ursprung : TPoint; 

INTEGER; 
INTEGER; 
TLogBrush; 
TLogBrush); 


Punkte : ARRAY[0..2] OF TPoint; 
Bs,Bl,B_alt: HBrush; 


CreateBrushIndirect (Stamm); 
CreateBrushIndirect (Laub); 
; := SelectObject (Kontext ,Bs); 
SetPoint (Punkte[0],Ursprung.X,Ursprung.Y-Hoehe); 
SetPoint (Punkte[1],Ursprung.X+Breite DIV 4,Ursprung.Y); 
SetPoint (Punkte[2],Ursprung.X-Breite DIV 4,Ursprung.Y); 
Polygon (Kontext ‚Punkte, 3); 
SelectObject (Kontext,Bl); 
WITH Ursprung DO 
Ellipse (Kontext ,X-Breite, Y-Hoehe,X+Breite,Y-Hoehe DIV 3); 
SelectObject (Kontext,B_alt); 
DeleteObject (Bs); 
DeleteObject (Bl); 
END; 


In der nebenstehenden 
Darstellung sind die Para- 
meter des Laubbaum-Re- 
zepts eingezeichnet; fol- 
gendes Programm führte zu diesem 
Bild: 


VAR 
DC : HDC; 
U : TPoint; 
Bs,Bl : TLogBrush; 


BitmapS,BitmapL: HBitmap; 
BEGIN 
DC := GetDC (HWindow); 
BitmapS := LoadBitmap 
(HInstance, 'sdiag'); 
BitmapL := LoadBitmap 
(HInstance, 'hellgrau'); 
Lade _Brush_Bitmap(Bs,Bitmap$); 
Lade _Brush_Bitmap(Bl,BitmapL); 
SetPoint(U,200,400); 
Laubbaum(DC,U,250,120,Bs,Bl); 
SetPoint(U,400,400); Laubbaum(DC,U,350,30,Bl,Bs); 
DeleteObject (Bitmap$S); DeleteObject (BitmapL); 
ReleaseDC (HWindow,DC); 
END; 
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PROCEDURE Nadelbaum 
(Kontext : HDC; 
Ursprung : TPoint; 


Hoehe INTEGER; 
Breite INTEGER; 
Schichten: BYTE; 

Ein Nadel- Stamm TLogBrush; 


R Laub TLogBrush); 
baum ist etwas |yar 


schwieriger zu | Punkte 
zeichnen als ein | 


ARRAY[0..2] OF TPoint; 


w : INTEGER; 


: BYTE; 
Laubbaum. Die Bs, Bl,B_alt: HBrush; 
BEGIN 
Krone kann aus SetPoint (Punkte[0],Ursprung.X,Ursprung.Y-Hoehe); 
mehreren Bs := CreateBrushIndirect (Stamm); 


F Bl := CreateBrushIndirect (Laub); 
Schichten be-| Balt := else u Bs); 
Punkte[1].X := Ursprung.X + Breite DIV 2; 
stehen, deren Punkte[1].Y := Ursprung.Y; 
Anzahl bei die- | Punkte[2].X := Punkte[1].X - Breite; 
Punkte[2].Y := Ursprung.Y; 
ie Rezept Polygon (Kontext ‚Punkte, 3); 
angegeben wer- | Punkte[1].X := Ursprung.X + Breite; 
® Punkte[2].X := Ursprung.X - Breite; 
den muß. An- | dH := Hoehe DIV (Schichten+1); 
sonsten ıst es SelectObject (Kontext ,Bl); 
FOR i:=1 TO Schichten DO BEGIN 
genauso Anzu- Dec (Punkte[1].Y,dH); 


wenden wie das Punkte[2].Y := Punkte[1].Y; 
Polygon (Kontext ‚Punkte, 3); 
zept. SelectObject (Kontext,B_alt); 


DeleteObject(Bs); DeleteObject (Bl); 
END; 


O— Nebenstehend sehen Sie zwei 


ON Nadelbäume; beim linken sind die 


Parameter des Rezepts angegeben. 


2xBreite 
Das Bild wurde so gezeichnet: £ N 
£ 
VAR ‘ N 
DC : HDC; > 
U : TPoint; | 
Bs,Bl : TLogBrush; Hoche 
BitmapS,BitmapL: HBitmap; 
BEGIN 
DC := GetDC (HwWindow); 


BitmapS := LoadBitmap 
(HInstance, 'sdiag'); r r 

BitmapL := LoadBitmap Ursprung 
(HInstance, 'hellgrau'); 

Lade_Brush_Bitmap(Bs,BitmapS); Lade _Brush_Bitmap(Bl,BitmapL); 

SetPoint(U,200,400); Nadelbaum(DC,U,250,80,2,Bs,Bl); 

SetPoint(U,400,400); Nadelbaum(DC,U,350,30,4,Bl,Bs); 

Deleteobjeot (Bitmap$); DeleteObject (BitmapL); 

ReleaseDC (HWindow,DC); 

END; 


U UMRECHNUNGEN 


Welt.iinks = -2 Welt.rechts=+3 
v 


(0,0) 100 600 
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Häufig muß man Vorgänge, die sich in einer Ebene abspielen, auf dem 
Bildschirm darstellen. Beispiele dafür sind etwa Funktionsgraphen oder 
Apfelmännchen. Ein Punkt der Ebene ("Weltpunkt") wird durch ein Paar 
reeller Zahlen, etwa (Wx,Wy), dargestellt, ein Punkt auf dem Bildschirm 


durch INTEGER-Zahlen (X,Y). Eine Anwendung wird also häufig zwischen 
"Weltkoordinaten" und Bildschirmkoordinaten umrechnen müssen. 


Der Einfachheit halber betrachten wir nur rechteckige Bereiche. Der Bildschirmbereich, 
in dem die Daten darzustellen sind, wird durch eine Variable vom Typ TRect beschrie- 
ben, ein einzelner Bildschirmpunkt durch einen 7’Point. Beide Typen werden von Turbo- 
Pascal bereitgestellt. 


Ein "Weltpunkt" wird durch zwei reelle Zahlen beschrieben; manchmal ist es nützlich, 
hierfür den RECORD TRealPoint (Deklaration: unten links) zu verwenden. 
PRealPoint “TRealPoint; PRealRect “TRealRect; 


TRealPoint RECORD TRealRect 
Wx: REAL; links : 


Wy: REAL; rechts: 
END; unten : 
oben 
END; 


Der "Weltbereich", der auf einen Bildschirmbereich zu übertragen ist, kann eindeutig 
durch TRealRect (oben rechts) charakterisiert werden. Diese Darstellung ist so zu ver- 
stehen: Das Intervall Wx = links...rechts wird auf den Bildschirmbereich lefi...right 
abgebildet, das Intervall Wy = unten...oben auf bottom...top. 


Zu beachten sind die unterschiedlichen Konventionen: Weltkoordinaten 
AN wachsen von links nach rechts und von unten nach oben, Bildschirmkoor- 
dinaten von links nach rechts und von oben nach unten. 


Om Die Beziehungen zwischen diesen beiden Darstellungen sind auf dem Ti- 
©) telbild des vorliegenden Kapitels an Hand des Graphen der Funktion 
y=tanhx veranschaulicht. Oben sehen Sie den Graphen im Rahmen der 
Weltkoordinaten, die durch eine Variable vom Typ TRealRect mit den 
Werten (-2,3,-1,1) gegeben sind; die Koordinatenachsen sind nur zur Verdeutlichung an- 
gegeben. Darunter ist die Position desselben Graphen auf dem Bildschirm gezeichnet 
(die Koordinatenachsen, wieder zur Verdeutlichung, gestrichelt), zu den Weltko- 
ordinaten gehören die Bildschirmkoordinaten (100,50,600,250) (Variable vom Typ 
TRect). 


Wie Sie Welt- und Bildschirmkoordinaten ineinander umrechnen können, 
Ina erfahren Sie bei den Rezepten U.3 und U.4. 
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ihrer Verwendung häufig initialisiert werden. Das kann grundsätzlich im- 

mer durch direkte Wertzuweisung an ihre Felder geschehen. Mit der Stan- 

dardprozedur SetRect kann die Initialisierung einer Variablen vom Typ 
TRect kompakter, nämlich in einer einzigen Befehlszeile, vorgenommen werden. Für die 
übrigen genannten RECORDS leisten die folgenden Rezepte dasselbe: 


f RECORDs vom Typ TPoint, TRect, TRealPoint und TRealRect müssen vor 


PROCEDURE SetPoint 
(VAR P : TPoint; 
X,Y: INTEGER); 
BEGIN 
P.x: 
P.Y: 
END; 


ıX 
X 
Y 


PROCEDURE SetRealPoint 
(VAR Point: TRealPoint; 
X,Y : REAL); 
BEGIN 
Point .Wx 
Point.Wwy 
END; 


PROCEDURE SetRealRect 
(VAR Rect : TRealRect; 
L,R,U,O: REAL); 
BEGIN 
Rect.links := L 
Rect.rechts := 
Rect.unten := 
Rect.oben := O 
END; 


Om Die folgende Tabelle vergleicht für jeden der betrachteten RECORDS die 

Ol Initialisierung durch direkte Wertzuweisung mit der dazu äquivalenten 
Rezeptanwendung; der verringerte Programmieraufwand ist deutlich er- 
kennbar: 


Typ der Variablen direkte Wertzuweisung |kompakte Initialisierung 
Rec abcd 
TRect INTEGER |Rec.left : SetRect (Rec,a,b,c,d); 
Rec.top := 
Rec.bottom 
Rec.Wy := 
REAL 


Pro  [areoer Rec.X := a; SetPoint (Rec,a,b); 
Rec.Y :=b 
Rec.right : 

TRealRect . 


SetRealPoint (Rec,a,b); 


Rec.links := a; 
Rec.rechts := b; 
Rec.unten := c; 
Rec.oben 


SetRealRect (Rec,a,b,c,d); 


. 
° 
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Sind Weltbereich und Bildschirmbereich (wie in Rezept U.1 beschrieben) 
& vorgegeben, so können die Bildschirmkoordinaten aus den Weltkoordina- 
[u / ten berechnet werden. Die Formeln lauten (W = Welt, B = Bildschirm): 


Bright - Bieht W.+ Bien W rechts - Bright links 
Wrechts - Wiinks * Wrechts - Minks 


- Bean ı 
By =. Pbottom- Btop „y, + BbottomWoben - BtopMunten 
Woben - Wunten ? Woben - Wunten 


Die einzelnen Koordinaten des Bildschirm erhält man so: 


By = 


FUNCTION XWeltToSchirm {X-Koordinate} 
(Wx: REAL; Welt: TRealRect; Schirm: TRect) :INTEGER; 
BEGIN 
WITH Welt,Schirm DO XWeltToSchirm := 
IntRound( (right* (Wx-links)-left* (Wx-rechts))/(rechts-links)); 


END; 


FUNCTION YWeltToSchirm {Y-Koordinate} 
(Wy: REAL; Welt: TRealRect; Schirm: TRect): INTEGER; 
BEGIN 
WITH Welt,Schirm DO YWeltToSchirm := 
IntRound( (top* (Wy-unten)-bottom* (Wy-oben))/(oben-unten)); 
END; 


Beide Koordinaten des Bildschirmpunkts bekommt man wie folgt: 


PROCEDURE WeltToSchirm 
( Quellpunkt: TRealPoint; 
VAR Zielpunkt : TPoint; 
Welt : TRealRect; 
Schirm : TRect); 


BEGIN 
Zielpunkt.X XWeltToSchirm(Quellpunkt.Wx,Welt,Schirm); 
Zielpunkt.Y YWeltToSchirm(Quellpunkt.Wy,Welt,Schirm); 
END; 


Oo Den Funktionsgraphen im Titelbild dieses Kapitels zeichnet man mit Re- 
Ol zept K.2 (Funktionsgraph). Dazu benötigt man die Position des Koordina- 
tenursprungs U auf dem Bildschirm, die man mit den obigen Prozeduren 
aus dem Bildschirmbereich B und dem Weltbereich W berechnet. Die 

Maßstäbe Mx und My sind gleich den Faktoren vor W, bzw. W, in den obigen Formeln: 


VAR 

DC: HDC; Mx,My: REAL; B: TRect; W: TRealRect; U: TPoint; 
BEGIN 

DC := GetDC(HWindow); 

SetRect (B,100,50,600,250); SetRealRect (W,-2,3,-1,1); 

SetPoint (U,XWeltToSchirm(0,W,B),YWeltToSchirm(0,W,B)); 

Mx := (B.right-B.left) /(W.rechts-W.links); 

My := (B.bottom-B.top)/(W.oben-W.unten); 

Funktionsgraph (DC,U,B,Mx,My,Tanh); ReleaseDC (HWindow,DC); 
END; 
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vorgegeben, so können die Weltkoordinaten aus den Bildschirmkoordina- 


Sind Weltbereich und Bildschirmbereich (wie in Rezept U.1 beschrieben) 
& ten berechnet werden. Die Rezepte sind eine genaue Umkehrung von U.3; 


die Formeln lauten: 
_ Mrechts - Minks Bricht Winks - Bien, 
%* Bright - Bien "+ Bright - Bieft 
Wohen - Yunten B: W open - Bro, 


By + 


y Bbottom ” Btop Bottom - Btop 


Die einzelnen Weltkoordinaten erhält man so: 


FUNCTION XSchirmToWelt 
INTEGER; 
TRealRect; 
TRect): REAL; 


WITH Welt,Schirm DO 
XSchirmToWelt := 
(rechts* (X-left)-links* (X-right)) /(right-left); 


FUNCTION YSchirmToWelt 
INTEGER; 
TRealRect; 
: TRect): REAL; 


WITH Welt,Schirm DO 
YSchirmToWelt := 
(unten* (Y-top)-oben* (Y-bottom) ) /(bottom-top); 


END; 


Beide Koordinaten eines Weltpunkts berechnen Sie wie folgt: 


PROCEDURE SchirmToWelt 
( Quellpunkt: TPoint; 
VAR Zielpunkt : TRealPoint; 
Welt : TRealRect; 
Schirm : TRect); 


BEGIN 


Zielpunkt.Wx SchirmToWelt (Quellpunkt.X,Welt,Schirm); 
Zielpunkt.Wy SchirmToWelt (Quellpunkt.Y,Welt,Schirm); 
END; 


Oo Ein Anwendungsbeispiel für XSchirmToWelt finden Sie bei Rezept C.A 


Ol (Feigenbaumdiagramme). 
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Sind Weltbereich und Bildschirmbereich (wie in Rezept U.1 beschrieben) 
vorgegeben, so kann ein Koordinatenkreuz gezeichnet werden. Das 
folgende Rezept erledigt diese Aufgabe: 


PROCEDURE Achsenkreuz 
(Kontext: HDC; 
Ww TRealRect; 
B TRect; 
Pfeil BYTE; 
Tx,Ty STRING); 


SetPoint (M,XWeltToSchirm(0,W,B) ,YWeltToSchirm(0,W,B)); 
IF NOT PtInRect(B,M) THEN Exit; 
MoveLine (Kontext,B.left,M.Y,B.right,M.Y); 
MoveLine (Kontext ,B.right-Pfeil,M.Y-(Pfeil DIV 2) ,B.right,M.Y 
MoveLine (Kontext ,B.right-Pfeil,M.Y+(Pfeil DIV 2),B.right,M.Y 
Ta := SetTextAlign(Kontext,ta_Right OR ta_Top); 
TextOutString(Kontext ,B.right,M.Y+Pfeil,Tx); 
MoveLine (Kontext ,M.X,B.bottom,M.X,B.top); 
MoveLine(Kontext,M.X-(Pfeil DIV 2),B.topt+tPfeil,M.X, 
MoveLine (Kontext ,M.X+(Pfeil DIV 2),B.topt+tPfeil,M.X, 
TextOutString (Kontext ,M.X-Pfeil,B.top,Ty); 
SetTextAlign (Kontext, Ta); 

END; 


Pfeil gibt die Länge der Pfeile an den Achsen (nach rechts und nach oben) an; bei 
Pfeil=0 werden keine Pfeile gezeichnet. 7x und 7y sind die Achsenbeschriftungen; 
diese erfolgen in der aktuellen Schriftart und der aktuellen Farbe. 


Om Das nebenstehende Bild er- 

N®) halten Sie mit dem folgenden 
Programm. Zunächst wird der 

Graph einer Sinus-Funktion x 
(Weltbereich X=-1,1r...2,1r) und an- 


schließend das Achsenkreuz in den Bild- 
schirmbereich B gezeichnet: 


sin x 


: HDC; 

: TRect; 

: TPoint; 

: TRealRect; 

BEGIN 
DC := GetDC(HWindow); SetRect(B,100,50,600,250); 
SetRealRect (W,-Pi*1.1,2.1*Pi,-1.1,1.1); 
SetPoint (U,XWeltToSchirm(0,W,B),YWeltToSchirm(0,W,B)); 
Funktionsgraph(DC,U,B, (B.right-B.left) /(W.rechts-W.links), 

(B.bottom-B.top) /(W.oben-W.unten) ‚Sinus); 

Achsenkreuz (DC,W,B,5,'x','sin x'); 
ReleaseDC (HWindow,DC); 

END; 
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118° W.1 Reihenfolge der Zeichenwerkzeuge 


ausgewählt und danach wieder gelöscht werden. Dabei empfiehlt sich fol- 


Virtuelle Zeichenwerkzeuge müssen vor ihrer Verwendung erzeugt und 


1) 


AAN 


gende Reihenfolge: 


Erzeugen aller benötigten virtuellen Zeichenwerkzeuge (das können z.B. mehrere 
Pinsel sein) 

Auswählen der zunächst benötigten Zeichenwerkzeuge mit SelectObject, wobei die 
Handles der vorher gültigen Werkzeuge zwischengespeichert werden müssen. Von 
jedem Typ (Stift, Pinsel und Schrift) braucht jeweils nur eines ausgewählt zu wer- 
den. 

Auswählen der jeweils benötigten Werkzeuge und Zeichnen in beliebiger Reihen- 
folge 

Wiederherstellen der ursprünglichen Zeichenwerkzeuge 

Löschen der erzeugten virtuellen Zeichenwerkzeuge, um den belegten Speicher- 
platz wieder freizugeben. Vordefinierte Zeichenwerkzeuge dürfen nicht gelöscht 
werden. 


gm  ——— ——— —— 
|Wird diese Reihenfolge nicht beachtet, so können beim Rollen des| 
|Fensters Speicherverluste auftreten. Besonders wichtig ist, daß die 


|Zeichenwerkzeuge erst gelöscht werden, nachdem die ur- 


Isprünglichen Werkzeuge wiederhergestellt sind. | 


Eine Paint-Methode, die einen Stift und zwei Pinsel verwendet, könnte 


Oo 
®) etwa so aussehen: 


PROCEDURE Paint 


( PaintDC : HDC; 

VAR PaintInfo:TPaintStruct); 
VAR 

s,S_alt : HPen; 


P1,P2,P_alt: HBrush; 


BEGIN 


S := CreatePen(ps_Solid,3,0); 

Pl := CreateHatchBrush(hs_Cross,fb_rot); 
P2 := CreateSolidBrush(fb_gruen); 

S_alt := SelectObject (PaintDC,S); 

P_alt := SelectObject (PaintDC,Pl); 


... 


{Zeichnen und Auswahl von Werkzeugen in beliebiger Reihenfolge} 


SelectObject (PaintDC,S_alt); 
SelectObject (PaintDC,P_alt); 
Deleteobject (S); 
DeleteObject (Pl); 
DeleteObject (P2); 


END; 
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Einige allgemeine Zeichenpro- |PROCEDURE Lade_Pen 


u (VAR LogPen: TLogPen; 
gramme (etwa der Würfel von Re- Stil : WORD; 


zeptR.3) benötigen die Angabe Breite: INTEGER; 
Farbe : TColorRef); 


eines oder mehrerer Stifte. Jeder |pgsın 
Stift ist durch drei Parameter (Stil, Strichbreite | WITH LogPen DO BEGIN 
R e i ß lopnStyle := Stil; 
und Farbe) bestimmt; um die Variablenliste der lopnwidth.X := Breite; 
Zeichenprogramme nicht allzu sehr anwachsen zu lopnWidth.Y := 0; 

F > : A lopnColor := Far 
lassen, ist es günstig, die Stifte als TLogPen zu END; {WITH} 
übergeben. Um diesen RECORD zu initialisieren, LEND; 
müssen Sie vier Wertzuweisungen vornehmen; 


diese Arbeit erleichtert Ihnen das obenstehende Rezept. 


Für Stil können folgende Konstanten eingesetzt werden: 


Konstante Wirkun; 
ps_Solid 

ps DyDsh _-—— — — lo 
1 7 0) FEPEELSESEESEELEERERERLEEREREEEREDEERREEREREEREREEREEERELEEERRERERRERREGR 
ps_DashDot BE SEHE ENEREEENE : 
ps:DashDolDodt: nm ame ien n teen une ee nn 
ps_Null 


Oo Dieses Rezept ist einfach anzuwenden. 
Ol Die nebenstehenden Würfel erhalten Sie 
beispielsweise durch 


DC: HDC; 

SV: TLogPen; 
SH: TLogPen; 
U : TPoint; 


DC := GetDC (HWindow); 

Lade_Pen(SV,ps_Dot,1,fb_schwarz); 

Lade _Pen(SH,ps_Dash,1,fb_blau); 

SetPoint (U,20,180); 

Wuerfel 
(DC,U,100,80,100,0,350,900,SV,SH); 

Lade_Pen(SV,ps_DashDotDot,1,fb_rot); 

Lade_Pen(SH,ps_Null,1,fb_schwarz); 

SetPoint (U,20,350); 

Wuerfel 
(DC,U,100,80,100,0,350,900,SV,SH); 

ReleaseDC (HWindow,DC); 

END; 


Der Stil ps_Null bewirkt, daß die verdeckten Kanten des zweiten Würfels gar nicht 
gezeichnet werden. 
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Ein Pinsel füllt einen Bildschirmbereich mit einem bestimmten Muster. Zur 
Erzeugung eines virtuellen Pinsels stellt WINDOWS eine Anzahl von 

Funktionen wie CreateHatchBrush, CreatePatternBrush usw. zur Verfü- 

gung, die jeweils unterschiedliche Parameter benötigen. Allgemeine Zei- 
chenprogramme (das Rezept P.1 für das Zeichnen eines Tortendiagramms ist ein typi- 
sches Beispiel) benötigen jedoch eine einheitliche Angabe für den zu verwendenden 
Pinsel. Dazu dient der Record TLogBrush, dessen einzelne Felder entsprechend geladen 
werden müssen. Das folgende Rezept nimmt Ihnen diese Arbeit ab: 


CONST 
hs_Null = 254; 
hs Solid = 255; 


PROCEDURE Lade_Brush 
(VAR LogBrush: TLogBrush; 
Muster : INTEGER; 
Farbe : TColorRef); 


BEGIN 
WITH LogBrush DO BEGIN 


lbStyle := bs_Hatched; 

lbColor := Farbe; 

IlbHatch := Muster; 

CASE Muster OF 
hs_Null: 1bStyle := bs_Null; 
hs_Solid: 1bStyle := bs_Solid; 

END; {CASE} 

END; {WITH} 
END; 


Für Muster kommen in Frage: 


Konstante Wert Wirkung 


hs_Cross 4 Er 


; RRRERRERTETETKETRETRETERR 
S tagLross RRRRRRKRERRRTERERERTRETRL 
3 RRRRIRRRRRRRRRÄRTERTN 


hs_FDiagonal 2 IRQ 
hs_Horizontal 0 ——————— 
hs Vertical 1 RnIInINIINIKNINIINI| 
hs_Null 254 


hs_Solid ::> EN 


hs_Null zeichnet nur den Umriß und läßt das Innere ungeändert, hs_Solid füllt das 
Innere mit Farbe. 


Das nebenstehende Bild 
zeigt alle Schraffur- 
möglichkeiten. Der letz- 
te Sektor (rechts ober- 
halb des schwarzen Sek- 
tors) überdeckt teilweise 
den ersten (mit 
hs_BDiagonal _schraf- 
fierten);, da der letzte 
Sektor mit hs_Null ge- 
zeichnet wurde, bleibt 
der erste Sektor sicht- 
bar. Das entsprechende 
Programm lautet: 


VAR 


DC : HDC; 
Brush: TLogBrush; 
Torte: PTorte; 

BEGIN 
DC := GetDC (HWindow); 
Torte := New(PTorte,Init(150,150,100,0)); 
Lade_Brush (Brush,hs_BDiagonal,fb_schwarz); 
Torte” .Einfuegen(500,Brush); 
Lade_Brush (Brush,hs_Cross, fb_schwarz); 
Torte” .Einfuegen(500,Brush); 
Lade_Brush (Brush,hs_DiagCross, fb_schwarz); 
Torte“ .Einfuegen(500,Brush); 
Lade_Brush (Brush,hs_FDiagonal, fb_schwarz); 
Torte” .Einfuegen(500,Brush); 
Lade_Brush (Brush,hs_Horizontal,fb_schwarz); 
Torte” .Einfuegen(500,Brush); 
Lade Brush(Brush,hs_Vertical,fb_schwarz); 
Torte” .Einfuegen(500,Brush); 
Lade_Brush (Brush,hs_Solid, fb_schwarz); 
Torte” .Einfuegen (500,Brush); 
Lade_Brush (Brush,hs_Null,fb_schwarz); 
Torte” .Einfuegen(400,Brush); 
Torte” „Zeichnen (DC); 
Dispose (Torte,Done); 
ReleaseDC (HwWindow,DC); 

END; 


Um TLogBrush mit einer Bitmap zu laden, verwenden Sie Rezept W.5. 
Wenn Sie keine TLogBrush-Variable benötigen, sondern einen Pinsel 
direkt bereitstellen wollen, verwenden Sie Rezept W.6. 


122 W.4 Schraffurmuster 


hellgrau 


WINDOWS 
bietet einige 
vordefinierte 
Schraffur- 
muster für vstrich vieweg 

Pinsel an 

(vgl. etwa Rezept W.3). Wenn man mit diesen nicht auskommt, kann man sich über Bit- 
map-Ressourcen beliebige Muster selbst erzeugen. 


Die obige Tabelle enthält einige Vorschläge. Alle diese Bitmaps bestehen aus 8x8 Pi- 
xeln. Links ist jeweils der Aufbau der Bitmap angegeben, rechts ihr Effekt auf dem Bild- 
schirm und ein Namensvorschlag. Zweckmäßigerweise werden die Bitmaps mit dem 
Ressourcen-Editor erzeugt und unter dem jeweils angegebenen Namen gespeichert. 


FF Die Anwendung dieser 
Ol Schraffurmuster erfordert 
einige Sorgfalt. Das ne- 
benstehende Bild zeigt 
zwei Rädertierchen; das rechte wurde 
mit fdiag ausgefüllt, das linke zum Ver- 
gleich mit dem vordefinierten Muster 
hs_FDiagonal. Das Programm lautet: 


VAR 
DC : HDC; 
Bitmap : HBitmap; 
B1,B2,B_alt: HBrush; 
BEGIN 


DC := GetDC (HWindow); 
Bl := CreateHatchBrush(hs_FDiagonal,fb_schwarz); 
Bitmap := LoadBitmap (HInstance, 'fdiag'); 
B2 := CreatePatternBrush (Bitmap); 
B_alt := SelectObject (DC,Bl); 
Zahnrad (DC, 200,100,45,23,90,0,34); 
SelectObject (DC, B2); 
Zahnrad(DC,325,145,25,13,50,40,17); 
SelectObject(DC,B_ alt); 
DeleteObject (Bl); 
DeleteObject (B2); 
DeleteObject (Bitmap); 
ReleaseDC (HWindow,DC); 

END; 
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Ein virtueller Pinsel kann durch eine Bitmap definiert sein und wird dann 

gewöhnlich mit der WINDOWS-Funktion CreatePatternBrush erzeugt. 

Bei manchen Zeichenprogrammen (Näheres finden Sie am Beginn von 

Rezept W.3) muß man jedoch einen Record vom Typ TLogBrush mit dem 
Stil bs_Pattern und mit dem Handle der Bitmap initialisieren. Das folgende Rezept 
erleichtert Ihnen diese Arbeit: 


PROCEDURE Lade Brush_Bitmap 
(VAR LogBrush: TLogBrush; 
Bitmap : HBitmap); 


BEGIN 
WITH LogBrush DO BEGIN 
lbStyle s_Pattern; 
lbColor 
lbHatch 
END; {WITH 
END; 


Oo Das nebenstehende Bild 
ON wurde mit drei Pinseln 
gezeichnet, von denen 
zwei auf Bitmaps beru- 
hen. Diese Bitmaps müssen vor dem 
Zeichnen bereitgestellt und dürfen erst 


danach wieder freigegeben werden. 
Das folgende Programm zeigt, wie 


dabei vorzugehen ist: 
VAR 
DC : HDC; 
Bl : HBitmap; 
B2 : HBitmap; 


Torte: PTorte; 
Brush: TLogBrush; 


:= GetDC (HWindow); J 
Bl := LoadBitmap (HInstance, 'vieweg'); 
B2 := LoadBitmap(HInstance, 'punkte'); 
Torte := New(PTorte,Init(160,160,150,200)); 
Lade_Brush_Bitmap(Brush,Bl); 
Torte” .Einfuegen(1400,Brush); 
Lade_Brush (Brush,hs_Cross, fb_gruen); 
Torte” .Einfuegen(1000,Brush); 
Lade _Brush_Bitmap(Brush,B2); 
Torte” .Einfuegen(1200,Brush); 
Torte” .Zeichnen (DC); 
Dispose (Torte,Done); 
DeleteObject (Bl); 
DeleteObject (B2); 
ReleaseDC (HWindow,DC); 
END; 


Die Definition der Bitmaps "vieweg" und "punkte" finden Sie in Rezept W.4. 
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Im Rezept W.3 wird ein Pinsel definiert, indem eine Variable vom Typ 

TLogBrush mit den entsprechenden Daten geladen wird. Um den Pinsel 

verwenden zu können, muß man noch mit einem weiteren Befehl den Spei- 

cherplatz für diesen Pinsel bereitstellen. Das folgende Rezept faßt diese 
Befehlsfolge zusammen; bei der Anwendung erspart man sich außerdem noch die Va- 
riable vom Typ TLogBrush: 


FUNCTION Create_Brush (Muster: INTEGER; Farbe: TColorRef): HBrush; 
VAR 

LogBrush: TLogBrush; 
BEGIN 


Lade_Brush (LogBrush ‚Muster, Farbe); 
Create_Brush := CreateBrushIndirect (LogBrush); 
END; 


Dieses Rezept leistet dasselbe wie CreateHatchBrush, jedoch können zusätzlich die 
Muster hs_Null und hs_Solid (Rezept W.3) verwendet werden. 


Oo Das nebenstehende Bild zeigt alle | 
Ol Schraffurmöglichkeiten. Das 
linke senkrechte Rechteck wurde 
mit hs_Null gezeichnet, das 


rechte mit hs_Solid und weißer Farbe. Das 
entsprechende Programm lautet: 


CONST 
Anzahl = 8; 
VAR 
DC  : HDC; 
P : ARRAY[1..Anzahl] OF HBrush; 
P_alt: HBrush; 
i : BYTE; 
BEGIN 


DC := GetDC (HWindow); 


P[1] := Create_Brush(hs_BDiagonal,fb_schwarz); 
P[2] := Create_Brush(hs_Cross,fb_schwarz); 

P[3] := Create_Brush(hs_DiagCross,fb_schwarz); 
P[4] := Create_Brush(hs_FDiagonal,fb_schwarz); 
P[5] := Create_Brush(hs_Horizontal,fb_schwarz); 
P[6] := Create _Brush(hs_ Vertical, fb_schwarz); 
P[7] := Create_Brush(hs_Null,fb_schwarz); 

P[8] := Create_Brush(hs_Solid,fb_weiss); 


P_alt := SelectObject(DC,P[1]); 
FOR i:=1 TO 6 DO BEGIN 
SelectObject (DC,P[i]); 
Rectangle(DC,10,1*30,310, (i+1)*30); 
END; {FOR} 
SelectObject (DC,P[7]); Rectangle(DC,50,10,70,230); 
SelectObject(DC,P[8]); Rectangle(DC,220,10,240,230); 
SelectObject (DC,P_alt); 
FOR i:=1 TO Anzahl DO 
DeleteObject (P[i]); 
ReleaseDC (HWindow,DC); 
END; 


Z ZWISCHENABLAGE 


126 Z.1 Bildschirmbereich in Zwischenablage 


Eine ziemlich komplizierte, aber wichtige Aufgabe ist die Speicherung 
eines Bildschirmbereichs in der Zwischenablage. Das folgende Rezept hilft 
hier weiter: 


PROCEDURE Bereich _in Zwischenablage 
(Kontext: HDC; Bereich: TRect; Wnd: HWnd); 
VAR 
MemDC : HDC; 
Bitmap: HBitmap; 
BEGIN 
Bitmap_ bereitstellen _laden(Kontext,MemDC,Bitmap,Bereich); {B.2} 
OpenClipboard(Wnd); 
EmptyClipboard; 
SetClipboardData(cf_Bitmap,Bitmap); 
CloseClipboard; 
DeleteDC (MemDC); 
END; 


Hier ist Kontext der Gerätekontext (gewöhnlich der Bildschirmkontext), der das zu 
speichernde Bild enthält, Bereich der zu kopierende rechteckige Bereich und Wnd das 
Fenster, das mit der Zwischenablage verbunden werden soll. 


Bitmap wird an die Zwischenablage übergeben und von dieser verwaltet 
und darf daher nicht (etwa mit DeleteObject(Bitmap)) freigegeben werden. 
Tut man das, so bleibt die Zwischenablage leer. 


Das folgende Anwendungsbeispiel geht davon aus, daß der zu kopierende 
Bereich (etwa mit Rezept A.5) durch ein punktiertes Rechteck markiert ist. 
Zunächst wird mit DrawFocusRect die Markierung entfernt (sonst werden 
die Punkte ebenfalls kopiert), dann der Bereich in die Zwischenablage 
übertragen und anschließend die Markierung wiederhergestellt: 


VAR 
DC: HDC; 
BEGIN 
DC := GetDC (Hwindow); 
DrawFocusRect (DC,Bereich); 
Bereich _in Zwischenablage (DC,Bereich,HWindow); 
DrawFocusRect (DC,Bereich); 
ReleaseDC (HWindow,DC); 
END; 


Datei Bearbeiten Ansicht Hilfe 


Bildschirminhalt mit | 
dem markierten Be- 
reich, rechts die Zwi- 
schenablage nach dem 
Kopiervorgang. 
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geholt werden. Das folgende Rezept kopiert die Zwischenablage in ein 

Rechteck, dessen linke obere Ecke durch (X,Y) gegeben ist. Mx und My 

sind Maßstabsfaktoren, welche die Bitmap verzerren. Die Breite des 
Zielrechtecks ist gleich (Breite der Bitmap)xMx, die Höhe gleich (Höhe der Bitmap)x 
My. Für Mx = My = 1 erhält man eine unverzerrte Kopie: 


f Wenn die Zwischenablage eine Bitmap enthält, kann sie in den Bildschirm 


PROCEDURE Zwischenablage bei _Punkt_einfuegen 
(Kontext: HDC; 
: INTEGER; {Zielkoordinaten} 
: REAL; {Maßstäbe} 
: HWnd); 


HDC; 
HBitmap; 


MemDC := CreateCompatibleDC (Kontext); 


OpenClipboard (Wnd); 

IF IsClipboardFormatAvailable(cf_Bitmap) THEN BEGIN 
Bitmap := GetClipboardData(cf_Bitmap); 
SelectObject (MemDC ,‚Bitmap); 
Bitmap_bei_Punkt_einfuegen (Kontext ,MemDC ‚Bitmap,X,Y,Mx,My); 

END; {IF} 

CloseClipboard; 

DeleteDC (MemDC) ; 

END; 


Hier ist Kontext der Gerätekontext, in den der Inhalt der Zwischenablage kopiert werden 
soll, und Wnd das zugehörige Fenster. 


Dieses Rezept prüft nicht, ob die einzelnen Operationen erfolgreich sind. 
BANN Für ein sicheres Programm müssen die entsprechenden Prüfungen 


zusätzlich eingeführt werden. 

O0 Der ne- 

®) benstehende 
| ET 
ler (a) befin- 


de sich zunächst in der a 


Zwischenablage. DC _ sei 

der Bildschirmkontext. Mit Pecaaggaaeıch) 
den folgenden Befehlen 

wird er in ein Rechteck mit 5 
dem Startpunkt (%Y) 

kopiert und dabei um 25% 

schmäler und um 50% höher gemacht (b): 


DC := GetDC (HWindow); 
Zwischenablage _bei_Punkt_einfuegen(DC,X,Y,0.75,1.5,HWindow); 
ReleaseDC (HWindow,DC); 
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Mit dem vorhergehenden Rezept konnte der Inhalt der Zwischenablage in 
den Bildschirm kopiert werden; die Größe des Zielbereichs ergab sich aus 
der Größe der gespeicherten Bitmap und den Maßstabsfaktoren. Häufig ist 
jedoch der Zielbereich vorgegeben, und die Bitmap soll so verzerrt wer- 


den, daß sie hineinpaßt. Die folgende Variante erledigt das: 


PROCEDURE Zwischenablage_in Bereich _einfuegen 
(Kontext: HDC; 
Bereich: TRect; {Zielbereich} 
Rop : LONGINT; {Rasteroperation} 
Wnd : HWnd); 
VAR 
MemDC : HDC; 
Bitmap: HBitmap; 
BEGIN 
MemDC := CreateCompatibleDC (Kontext); 
OpenClipboard (Wnd); 
IF IsClipboardFormatAvailable(cf_Bitmap) THEN BEGIN 
Bitmap := GetClipboardData(cf_Bitmap); 
SelectObject (MemDC ,Bitmap); 


Bitmap_in Bereich _einfuegen (Kontext,MemDC,Bitmap,Bereich,Rop); 
END; {IF} 
CloseClipboard; 
DeleteDC (MemDC); 
END; 


Kontext ist der Gerätekontext, in den die Zwischenablage kopiert wird 

Wnd bezeichnet das Handle des zugehörigen Fensters 

Rop ist die Rasteroperation, die beim Kopieren verwendet wird (vgl. das folgende An- 
wendungsbeispiel). 


Bitmap gehört der Zwischenablage und darf daher keinesfalls mit DeleteObject gelöscht 
werden. 


— Im folgenden Anwendungsbeispiel wird mit Hilfe der Maus das Zielrecht- 
TO! eck auf dem Bildschirm definiert und die Zwischenablage in diesen Be- 
reich kopiert. Das erfordert folgende Schritte: 


1) Der Startpunkt dieses Bereichs (links oben) wird durch Anfahren mit dem Maus- 
zeiger und Drücken der linken Maustaste festgelegt. 

2) Der Endpunkt ist zunächst gleich dem Startpunkt und wird durch Ziehen mit der 
Maus verschoben; der Inhalt der Zwischenablage wird verzerrt und invertiert in den 
neuen Bereich kopiert. Dadurch wird beim Verkleinern des Bereichs der ursprüng- 
liche Zustand des Bildschirms wiederhergestellt. 

3) Beim Loslassen der linken Maustaste wird die Zwischenablage in Originalfarben in 
den definierten Bereich auf dem Bildschirm kopiert. 

Sie können somit bereits während des Ziehens mit der Maus erkennen, wie die endgül- 

tige Kopie aussehen wird. 


Die Vorgangsweise ist ähnlich wie in Rezept A.5 (Bildschirmbereich auswählen). 
TFenster sei Ihr Anwendungsfenster. Zunächst benötigen Sie eine Variable Bereich, um 
den ausgewählten Bildschirmbereich zu speichern. Diese Variable wird durch Drücken 
der linken Maustaste definiert und anschließend durch Ziehen mit der Maus ausgewertet, 
so daß mehrere Methoden darauf zugreifen müssen. Zweckmäßigerweise wird sie daher 
als Feld in die Definition Ihres Fensters aufgenommen: 


TYPE 
TFenster = OBJECT (TWindow) 
Bereich: TRect; 


END; 


Die Init-Methode sollte diese Variable löschen: 


CONSTRUCTOR TFenster.Init(...); 
BEGIN 
SetRectEmpty (Bereich); 


END; 


Durch Drücken der linken Maustaste wird der Startpunkt des Bereichs (links oben) auf 
die Mausposition gesetzt (der Endpunkt fällt dabei zunächst mit dem Startpunkt zusam- 
men): 


PROCEDURE TFenster.WMLButtonDown (VAR Msg: TMessage); 
BEGIN 
SetRect 
(Bereich,Msg.LParamLo,Msg.LParamHi,Msg.LParamLo,Msg.LParamHi); 
END; 


Durch Ziehen der Maus wird der Endpunkt des Bereichs (rechts unten) geändert. Zuerst 
wird die Kopie aus dem ursprünglichen Bereich gelöscht (daher ist die Invertierung 
notwendig), dann der Bereich geändert und schließlich die Zwischenablage in den neuen 
Bereich kopiert: 


PROCEDURE TFenster.WMMouseMove (VAR Msg: TMessage); 
BEGIN 
Zwischenablage _in Bereich_einfuegen 
(DragDC ‚Bereich, SrcInvert ‚HWindow); 
Bereich.right := Msg.LParamLo; Bereich.bottom := Msg.LParamHi; 
Zwischenablage _in Bereich einfuegen 
(DragDC ,Bereich,SreInvert ‚HWindow); 
END; 


Schließlich wird beim Loslassen der Maus die Zwischenablage mit den Originalfarben in 
den Zielbereich kopiert: 


PROCEDURE TFenster.WMLButtonUp(VAR Msg: TMessage); 
BEGIN 
Zwischenablage _in Bereich _einfuegen 
(DragDC ,Bereich,SrceCopy ,HWindow); 
END; 
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Achsenkreuz, 116 Create_Brush, 124 
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Apfel, 28 CreateHatchBrush, 124 
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Arbeitsspeicher, 14 D 
Attraktor, 30 Dezimalkomma, 96 
Dezimalpunkt, 96 
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bdiag, 122 Bildschirmbereich, 38 
Bereich_in Zwischenablage, 126 Datei, 35 
Beschriftung, 94; 95 Speicherkontext, 37 
Bildschirmbereich Text, 35 
auswählen, 6 Druckerkontext, 34 
speichern, 17 Druckerkontext_bereitstellen, 34 
Bildschirmbereich_drucken, 38 Drudenfuß, 51 
BildschirmbereichEnde, 6 
BildschirmbereichStart, 6 E 
Bildschirmkoordinaten, 112; 114; 115 Ellipse, 47; 55 
Birne, 68 EllipseWinkel, 47 
Bitmap, 16; 17; 122 Escape, 34 
Breite, 16 exp, 2 
drehen, 20 Exponentialfunktion, 2 
freigeben, 17 
Höhe, 16 F 
übertragen, 18; 19 Farbkonstanten, 13 
verzerten, 22 fb_blau, 73 
Bitmap_bei_Punkt_einfuegen, 18 fb_blaugruen, 13 
Bitmap_bereitstellen_laden, 17 fb_gelb, 13 
Bitmap_drehen, 20 fb_grau, 13 
Bitmap_in_Bereich_einfuegen, 19; 128 fb_gruen, 13 
Bitmap_verzerren, 22 fb_rot, 13 
Blume, 108 fb_schwarz, 13 
fb_violett, 13 
C fb_weiss, 13 
Cassini, 52; 105; 107; 108 fdiag, 122 
Cassinifunktion, 52 Feigenbaum, 29 


Cassinische Kurve, 52 Feigenbaumdiagramme, 29 
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Feigenbaumfunktion, 29 
Festkommadarstellung, 96 
FExp, 2 
ff_ Courier, 92 
ff_Helv, 92 
ff _HelvFix, 92 
ff Normal, 92 
Fisch, 105 
lebend, 105 
seitlich, 105 
tot, 105 
von oben, 106 
von unten, 106 
Fisch_oben, 106 
Fisch_seitlich, 105 
Fisch_unten, 106 
FLn, 2 
Funktionsgraph, 56; 103 
Parameterdarstellung, 54 
Polarkoordinaten, 57 
Tabelle, 58 
FunktionsgraphParameter, 54 
FunktionsgraphPolar, 57 
FunktionsgraphTabelle, 58 
Funktionstyp, 54 
Funktionstyp_2, 29 
Funktionstyp_3, 24 
Funktionstyp_33, 30 


G 

Gamsbart, 40 
Gerade, 3 
GetBitmapHeight, 16 
GetBitmapInfo, 16 
GetBitmapWidth, 16 
Getriebe, 64 
Gleitkommafehler, 2 
Glühbirne, 68 

grau, 122 

grobgrau, 122 


H 

Hardcopy, 38 
hellgrau, 122 
Höhenlinie, 24 
Hohlzylinder, 87 
horiz, 122 

hs_Null, 120; 121; 124 
hs_Solid, 120; 124 
hs_Xxxx, 120 
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InvalidateRect, 9 


J 

Julia, 24 
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Lade_Brush, 120 
Lade_Brush_Bitmap, 123 
Lade_Pen, 119 
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Logarithmus, 2 
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Lorenzfunktion, 32 
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Matrix, 12 
Maus, 6; 128 
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N 
Nadelbaum, 110 


oO 
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Organigramm, 78 


pP 
Parallelogramm, 41 
Parkett, 70 
Pinsel 
bereitstellen, 124 
definieren, 120; 123 
PiZehntelgrad, 4 
Polarkoordinaten, 57 
Polygon, 3 
PolyLine, 3 
ps_Xxx, 119 
PTorte, 123 
Punkt verschieben, 4 
punkte, 122; 123 
Pyramide, 83 


R 

Rädertierchen, 64; 98; 122 
Radiolarien, 98 
Raedertierchen, 98 
Rahmen, 78 


dreidimensionaler, 80 


schattierter, 79 
Rahmen3D, 80 
RahmenSchattiert, 79 
Rakete, 67 
Rasierpinsel, 40 
Real_in_String_fest, 96 
RealOut, 96 
Rechteck, 42 
RectTextOut, 91 
Ring, 88 
RoesslerfunktionXZ, 31 
RoesslerfunktionYZ, 31 
Rohr, 86 
Rollbalken, 5 
Rollbalken_einfuegen, 5 
Rössler-Attraktor, 31 
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Saeule, 63 
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SchirmToWelt, 115 
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Schnecke, 104 

Schraffurmuster, 122 
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Sonderschrift bereitstellen, 93 
Sonderzeichen, 93 

sdiag, 122 

Seestern, 100 

Segment, 46 

Sektor, 45 

Sektorendiagramm, 72 

SetPoint, 113 

SetRealPoint, 113 

SetRealRect, 113 

SetRect, 113 

Siebeneck, 43 

sin, 55 

Sinus, 55; 116 

Sonne, 64; 65 

Sonnenfinsternis 
ringförmige, 65 
totale, 65 

Speicher-Information, 14 

Spinne, 64; 102 

Spirale, 48; 102; 104 
Archimedische, 48 
begrenzte, 50 
hyperbolische, 57 
logarithmische, 49 

SpiraleLog, 49 

SpiraleTanh, 50 

Standardfunktionen: Verwendung, 55 

Stern, 51 

Stift definieren, 119 
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TDruck, 37 
Telefon, 69 
Tempelruine, 63 
Tetraeder, 82 
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TextOutString, 90 
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Wertetabelle, 58 
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Zwischenablage_bei_Punkt_einfuegen, 127 
Zwischenablage_in _Bereich_einfuegen, 

128 

Zylinder, 86 


| DYNAMISCHE SYSTEME | 
UND FRAKTALE 


Was das Buch bietet ... 
Tips und Ideen für Leute mit Spaß 
am Experimentieren mit Computer- 
grafiken. Außerdem eineEinführung 
in die spannende Welt der Julia- 
mengen, Apfelmännchen und die 
Grundlagen der Chaostheorie. 

Worum es geht ... 

«e Forscher entdecken das Chaos 

e Merkwürdige Attraktoren 

* Herr Newton läßt schön grüßen 

«e Begegnung mit dem Apfelmänn- 
chen 

° „Fraktale“ Computergrafiken 

Und außerdem ... 

«e eineReise in das Land der unend- 
lichen Strukturen 

« Bausteine für grafische Experi- 
mente 

Was der Leser braucht ... 
Hardware: einen gängigen Rech- 
ner, wie z.B. Apple Macintosh, MS- 
DOS-Rechner, etc. 


Verlag Vieweg : Postfach 58 29 : 6200 Wiesbaden 1 N 
U we 


Dynamische Systeme 
und Fraktale 


Computergrafische 
Experimente mit Pascal 


von Karl-Heinz Becker und 
Michael Dörfler 


4., überarbeitete Auflage 1992. 

XII, 374 Seiten mit 198 Abbildungen und 
71 Programmbausteine. Kartoniert 

ISBN 3-528-34461-X 


Software: allegängigen Pascal-Ver- 
sionenbis einschließlich Turbo-Pas- 
cal 6.0. 

Besondere Kennzeichen ... 
Die Autoren machen den Leser auf 
lockere und anschauliche Weise 
mit einem Grenzgebiet aktueller 
wissenschaftlicher Forschung be- 
kannt. 

Die Autoren ... 
Dipl.-Phys. Dipl.Inform. Karl-Heinz 
Becker und Dipl.-Phys. Michael 
Dörfler (Bremen) sind in der Leh- 
rerfortbildung tätig. Sie sind Auto- 
ren des Buches „Wege zu Hyper- 
Card“ (Verlag Vieweg). 


Fraktale 1993 


von Karl-Heinz Becker und Michael Dörfler 
unter Mitarbeit von Wolfgang Schulte-Sasse 


1992. Kalenderblätter mit zahlreichen, mehrfarbigen Illustrationen. 
ISBN 3-528-05275-9 


„Kunst“ kommt bekanntlich von Können — 
„Fraktale Computerkunst“ von den be- 
kannten Autoren Becker und Dörfler. Mit 
diesem Kalender zeigen sie, wie erstaun- 
liche Bilder aus der Welt der Fraktale aus 
dem Rechner heraus auf Papier gezau- 
bert werden können. Nie zuvor gesehene 
Bilder in Farben, wie sie der jeweiligen 
Jahreszeit entsprechen, überlappen, 
durchdringen und ergänzen sich in bizar- 
ren Formen. Der Kalender ist ein illustrer 
Begleiter durch ein Jahr, das kaum lang- 
weilig zu werden verspricht. Für alle, die 
sich der Reise in der Welt der Computer- 
grafik anschließen möchten: Alle Bilder sind auf einem Tintenstrahldruk- 
ker mit erstaunlichem Resultat realisiert - als Anregung zum Nachbil- 
den für jedermann am eigenen PC. 
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